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BUMPAS REVIEWS 


Well, I sold my 800. It was a real emotional experience. After all, it 
vas my first computer. I learned most of what I now know on the 
lachine. And it never gave me any trouble. It was never down during 
the four years I owned it. The IBM I own at work suffered two complete 
breakdowns in the first year after the warranty expired. The repair costs 
on each occasion could have paid for an entire Atari system. Of course 
I only got a fraction of the $1100 I paid for the 800. 

Now I own a 130 XE! It's great! I believe the keyboard alone has 
boosted my typing speed by more than 10%. And I type 75 wpm the 
last time I tested myself on the 800. I type so fast on the XE that a 
character or two in each paragraph never gets to the screen when I use 
PaperClip. I guess it has so many features it doesn't have time to check 
the keyboard buffer often enough to keep up with me! Writer's Tool has 
no problem though. If you don't type fast, PaperClip might provide you 
with the best price/performance ratio, because it does have a lot of 
features. 

The DOS 2.5 disk the club distributes has several utility files of interest. 
Of course there is RAMDISK.COM, which automatically installs a 64k 
ramdisk (it's D:8!). Then there is a program to convert DOS 3 files. 
Another program automatically creates an autoboot disk from a screen 
menu (I like this one). And there is a configuration program which permits 
you to make additional disk assignments when you have more than 2 
drives. 

One obvious omission is a means to reassign the ramdisk to something 
other than D:8. Many programs are designed to access only 2, or 4 drives. 

If a user could assign the ramdisk to any number, say from 2 through 
8, the flexibility of this ramdisk would be increased many times. I know 
one user has already patched the system to assign the ramdisk to D:4. 

I won't mention his name so no pressure will be put on him to write a 
short little article describing the patch we need to make. But maybe 
someone out there will come up with an elegant solution to this problem. 
Any takers? 

My 130 XE has an accidental feature which makes it a "one-off”, sort 
of like that postage stamp with the airplane printed upside down. My 
Control Key has the word "Shift" printed on it, just like the larger Shift 
Key below it. So far, I've found no other machine with this characteristic. 
If you know of another XE machine with "Shift" printed on the Control 
Key, let me know. I'm keeping count! 

So far, the XE runs everything I've tried, except M.U.L.E. I've heard 
some other Electronic Arts stuff (One on One) won't run either. Lucky 
I added a 64k board to my 400, so I can still play M.U.L.E.! The XE is 
;o small, I have it along with my 400 in the same space of my computer 
cabinet which was formerly occupied by the 800. The XE is actually 
smaller than the 400, although it's a little bit wider. And with the power 
switch in the rear, my son Aden hasn't figured out how to turn off the 
machine just before I've saved a 100 sector file for the newsletter! 

OPERATION MARKET GARDEN (SSI, $50) is an operational level 
simulation of the drive on Arnhem in September, 1944 which also 
involved the multi-divisional air assault. It's for one or two players, and 
the map takes up most of a 32x31 hex grid containing 13 types of terrain. 
Ten different types of units are portrayed in the game. 

Player options also include 4 levels of play, historical or free set up, 
historical or random weather effects, hidden units, and intermediate or 
advanced play. Advanced play permits additional options and creates 
additional difficulties. For instance, supply is more difficult to manage. 
But you may order advances after combat and execute offensive and 
protective artillery barrages. Stacking is limited and Allied engineers find 
it more difficult to build bridges. Command control may be lost in the 
advanced game. Advanced players may not examine enemy units. 

Game operations include air strikes which may interdict movement,- 
or may attack ground units. Units may be built up or broken down into 
component units. Each unit's activity expends "operation points". When 
the points are gone, no more orders are given to the unit. 

Game functions are controlled entirely with the keyboard using one 
or more of the half-dozen menus provided in the game. A 16-page manual 
describes all the game functions and includes hints on play and a brief 
history of the battle. Appendices include 3 historical maps, a page of 
tables and abbreviations used, order of appearance for the units in the 
game, and a three page order of battle. Two plastic laminated maps with 
charts and tables on the reverse side are provide as play aids. The maps 
are full-color and a welcome addition to the game for plotting strategy. 

This one is tougher to win solitaire than most computer simulations. 
You'll be busy with this one for quite awhile. 


SIX-GUN SHOOTOUT (SSI, $40) is a simulation which has not been 
successfully attempted before. It's the wild west, and one or two players 
may choose from among 18 weapons and maneuver around up to 25 
types of terrain. There are ten scenarios which include historical ones 
like the Gunfight at the OK Corral. There are also 3 scenarios from 
movies, like The Good, The Bad and The Ugly. Two "typical" scenarios 
include townspeople vs. trailhands and Indians vs. "Travelers". 

The scenarios provide a player with from 2 to 18 fighters for a total 
of up to 30 fighters on screen at one time. You can save a game in 
progress for later play. The menu options actually allow for more than 
10 scenarios as players can take a scenario as it comes, or they can 
choose to randomize the starting position and characteristics of the 
fighters. 

Commands are entered with the keyboard and include the ability to 
show the map with all the characters removed, and to paint orange 
squares over the entire area any given character can see from the ground. 
When operating your characters, you can change weapons and load 
them. You can move, fire them, or fight hand to hand. Characters can 
stand, kneel, or lie prone (for better cover, but your movement is limited). 
You can jump through windows, hide behind walls and use other terrain. 
One character can even throw dynamite! 

The program gets a little gruesome sometimes. Occasionally, you are 
offered the choice of shooting a character in the legs, the gut, or the 
chest! A big feature of the program is the option to create a personal 
character for the player. This character starts with low characteristics, 
but your character appears in each scenario and offers you the 
opportunity to add skill points and become a very powerful character 
— maybe even more powerful than Billy the Kid! 

The 24-page manual not only describes the game functions fully, but 
also includes detailed scenario descriptions and historical notes and play 
aid charts. If you like western movies, here's your chance to get into the 
action yourself! 

ON TRACK (by GameStar, and distributed by Activision $35?) is 
described as "computer model car racing". And it is! 

When I was in high school, several of my friends had slot cars which 
they raced several times a week. These slot cars were expensive. And 
to race them you needed a rather substantial slot car track. Few were 
rich enough to have their own track, so stores set them up and charged 
fees to racers. On Track is a good simulation of these slot car racers. 
The cars even spin out when you lose control, just like the slot cars. 

In this GameStar release you have 10 tracks from which to choose 
(20, if you count the ability to surface each track with your choice of 
dirt or pavement!). One or two players may play, but I suggest you make 
it two player until you get very good. The Atari embarrases me so far. 
The player may also choose one of three characters (drivers) provided 
in the program. Each driver is provided with characteristics which affect 
his driving skill and qualities of the vehicle he drives. The variations do 
not seem to be oppressive. The player's skill is much more important. 

The joystick is the controller. Left and right steers the car. Forward 
and backward shifts gears between Lo and Hi. The button is the brake. 
Menu options permit gear shifting to be automatic (a nice touch). I use 
"automatic" brakes, also, because I haven't yet developed the skill to 
do correct braking. Luckily, when you run your car off the track, it doesn't 
crash. It comes to a stop. If you just sort of graze the edge of the track, 
you can slow down or at least get started quickly again. Well, to confess, 
I really drive like a blind man. I run until I hit something. Then I change 
direction. But I have seen a player sweep smoothly around those turns, 
and it's exciting! 

Game options also include racing for the fastest time, or for the 
greatest distance. 

I've left the best feature for last: Both players' cars are on the same 
screen for the whole race! For the slot car idea this is perfect. No split 
screens, or scrolling. You can see at all times how the race is going. You 
can take the car across country (you don't have to stay in the "slots"). 
I tried this, but when you cross the start line you don't get credit for the 
lap. 

This is the most exciting racing game for two players I've yet seen. 
You'll have many hours of fun with this one. 

— Jim Bumpas 
Co-Editor 
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NEWS AND REVIEWS 

by Mike Dunn, Co-Editor 

The big excitement now is the awaiting of the new ST's. A number 
of our members have ordered theirs (brave souls!) and they are supposed 
to be here "Real Soon Now", or next week. The first shipments are going 
to user groups to help de-bug the machines. Speaking of the ST's, some 
Macintosh programs are almost ready for the ST. Mosaic Software's 
Twin, a Lotus 1-2-3 type program, has been announced to be included 
with the 520ST, or $99 alone. VIP Technologies are releasing another 
1-2-3 clone, The Professional which will be for a number of computers, 
including the 520 ST. This issue is our July/Augest issue, so hopefully 
a full report on a user's experiences with the ST's will be in the next 
issue (or maybe even sooner). 

The last local meeting of ACE was another great one, with Ralph 
Walden, author of ACE-C, giving an impressive demo of his new C 
program for the XE, which has a built in Editor which does syntex 
checking, and, with a custom RamDisk for the XE, very quick changing 
from compilier to editor and linker - quicker than for an IBM-PC. This 
will be released as a "Freeware" product for a $35 donation when ready. 
Since most of the development work for the new ST's will use C, this 
is a good place to start. 

The new 520ST's will come with LOGO as its prime language, so Ruth 
Ellsworth has again started to donate LOGO programs and articles for 
the Newsletter. She has also made up our first full LOGO disk for the 
library - see her article. Speaking of the libary, the KoalaPad Utility 
Disk (double-sided for $15) is really a great buy for anyone into graphics 
— one of our best disks. We also have a new public domain Modem disk 
(not the one we use and not from ACE) called The Wizard double sided 
for $10. 

We have recently discovered that for some reason not known to 
anyone, our BBS, using the MPP modem, will not allow downloading from 
Atari 1030 Modem's. We will soon have a new, all machine language BBS 
which will run 300/1200 baud, etc, and be 10X or more faster than our 
present one (and hopefully with less bugs!). 

I understand MPP (MicroBits) is now closed and undergoing re- 
organization. I was very sorry to hear that, since they were a great 
supporter of user groups and had very good products — wish them luck 
to get back again. 


VP's RAMBLINGS 

Soon the ST's will be upon us and I am just learning how to use the 
new XE. If Atari keeps on the way they are going with the new type 
machines I will be further behind then ever before. I don't know whether 
this is good or bad but it sure is fun. The new XE is a very good computer 
with a keyboard that feels good and with the added memory I hope to 
see new programs coming out for it real soon. I think that Atari is doing 
the right thing by not have too many computers in the same type of 
series. They really don't need the 65XE thus the 130XE compliments 
the 800 series. I hope that the ST series is the same way. 

We have a new board up and running as we are beta testing it. It has 
all the features of the Forem board and more without all the problems. 
It is a password board so you have to log on as before but the higher 
levels really mean something and once you have your password to the 
board it really moves fast and gives you more time to do whatever you 
want on it. Anyway check it out and let us know what you think of it, 
also tell us of any features you would like to see. 

We will be adding an ST section to the newsletter just as soon as we 
have programs and articles to print and as long as we have the material 
coming in we will print it and of course all the other features that we 
put in every month. Don't forget if you have an article or program that 
you want to share with the other members please send it to us and we 
will see that it is put in the newsletter. 

- LARRY GOLD 


THE 'C' DUFFER 

2nd DIVOT 

Last month we looked at some ways to get simple integers into and 
out of the new AceC programming system for Atari. An elementary C 
program demonstrated integer math operations. 

AceC allows you to use Atari's floating point math. Most versions or_ 

C limit you to integer math. Floating point math insures fast-running 
programs. But integer math sure can slow down the programmer. I find 
floating point is cheap insurance against the kinds of errors which I make 
in fixed point math. 

So, how do you use F.P. with AceC? None of the books on C can help 
you here. As usual, Atari is different. The 'bible' is a brief text file on your 
AceC disk, "FLOATING POINTS". If all else fails, read the instructions, 
right? 

Our sample program will get you going. You must reserve six character 
bytes for each F.P. variable, and initialize any variable whose value is not 
set in the program (lines 50,60). Line 100 converts the input string to 
a F.P. number and puts it into a [6]. Then we 'fadd' a into sum and store 
the result in sum. After doing this for 12 iterations (line 70) we convert 
the index i to F.P, put it in n[6] and 'fdivide' sum by n to obtain the simple 
mean, which is stored in ave[6j. Lines 150 and 160 put the results on 
our screen with a label for each number. Line 170 holds the screen until 
you press another key. 

The function fadd(a,b,c) is like C = A + B in BASIC, fdiv(a,b,c) is like 
C = A/B, and so on. You can also subtract, multiply, and raise a number 
to a power (which doesn't have to be an integer). 

You now know how to enter numbers and characters into an AceC 
program and get output of some kind. That's about as much as I know, 
at the moment. It should be enough to let us learn to use C itself, from 
books like Kernighan and Ritchie's "The C Programming Language". 

That's because the core of AceC is much like that of other C's, and 
I m told that once you learn to use it, C is one of the very best 
programming languages. Once you get past the I/O barriers, that is. 

So consider, as you listen to your disk drive earn its keep compiling 
yet another corrected version of a hot new C function, that most of the 
software for the new Atari ST computers is being written in C ! 

Finally, learning a new computer language which requires an editor, 
a compiler, and a linker — that's three passes through your trusty old 
Atari — before you see results (if any) can definitely give you a profound 
new appreciation for the all too familiar virtues of Atari's BASIC. 

No matter how you play it, you win! 

— Dick Barklev 


DOLLAR A MEGABYTE 

Page 18 of the latest INFOWORLD reports on the new Atari CD ROM 
shown at the June CES in Chicago. For $500 this peripheral may be 
added to your ST machine. This laser compact disk player uses standard 
compact disks which can contain 540 megabytes of data. The Atari CD 
player can also play your high-quality audio compact disks when you're 
not using the computer! 

The display model in Chicago contained the entire 20-volume Grolier 
encyclopedia. Every one of the 9 million words in the encyclopedia is 
indexed. As a test, a search for the word "toothache" was made. It took 
3 seconds to find every occurrence of the word in the encyclopedia. 
There is also a "browse" mode for leafing through the encyclopedia and 
a tree structure to access individual entries. 

Lending libraries could make these large databases available to 
individual users who could not otherwise afford the large subscription 
costs and connect-time charges for the more expensive on-line 
databases. This development could really bring the information age into 
the average home! 

Also shown at the June CES was an Atari 260 ST priced at $499. 
This version contains a built-in 1 megabyte 3.5" floppy and 256k RAM. 

— Editors 
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LOGO LITTLE BITS 

by Ruth Ellsworth 

The new ST computers will soon be here. I find myself with the 
proverbial boxes of odds and ends (in this case disk boxes) as I get ready 
'or the new machine. As part of the sorting out, I am giving the club 

disk of LOGO. The disk includes the LOGO listings I have included in 
the ACE Newsletter, the LOGO listings I wrote last year for TURTLE 
NEWS, two instant LOGOs (one for the younger set, and one for the even 
younger set), and odds and ends as time and space permit. 

This month I want to mention the special primitives available in ATARI 
LOGO. Because of the way in which ATARI LOGO is accessed by the 
computer, users have little control over the computer memory or ability 
to change it. The special primitives in ATARI LOGO give very limited ability 
to affect computer memory. These primitives have the . (dot) at the 
beginning as a warning that they must be used carefully. They can 
destroy workspace. If workspace is destroyed through using them, one 
must restart LOGO and begin again. Four out of the five special primitives 
will not be used by beginners very often. 

The special primitive used most is the .SETSCR command. This 
command adjusts the vertical and horizontal lines on the TV being used 
so that objects are in correct proportion. For example, squares can be 
made to look truely square rather than rectangle as some TV screens 
make them appear with the default .SETSCR value. For most TV screens 
.SETSCR .8 is the correct value. 

The .PRIMITIVES command prints a list of all the Logo primitives. This 
is can be a handy reference guide during programming. We have also 
found it very useful when translating programs created at the children's 
school with different computers. 

One of the nice things about ATARI LOGO is that machine language 
subroutines can be accessed through the .CALL command. This 
command allows ATARI LOGO to do things which LOGO was not 
designed to do. The .CALL command is followed by a number (address) 
representing the starting memory location for the subroutine. 

Two special primitives allow LOGO users direct access to memory 
locations. These commands are .EXAMINE and .DEPOSIT. Both 
commands are followed by a number representing a memory location 
(address). 

The .EXAMINE (number) command allows the user to read the 
contents of a memory location. It is used for such things as printer drivers 
which check the memory locations during the run of the program so that 
the printer will preform in the way desired. 

The .DEPOSIT (number) command has very limited use in ATARI LOGO. 
The way LOGO is implemented makes most memory locations "off 
limits" to changes. There are, however a few locations which can be used 
o create fun or interesting effects. One of the things that is fun to do 
is to use the .DEPOSIT command to change the shape of the turtle. Page 
154 of the Reference Manual gives the location and byte numbers that 
can be used. We have used those numbers with the collision registers 
to make the turtle look squashed. 

Another fun thing we have done is to use the .DEPOSIT command to 
make titles for our programs that flip upside down and back. The 
FLIPPING TITLE modules at the end of this article can be used to 
introduce programs by adding the name of the program to be run after 
the line IF :VALUE x 10 [FLIPLET] in the TO COUNTER module. 

The TO START module is required because the program uses a counter. 
Counters must be set in modules outside of the modules in which they 
are used, or the value of the counter will be reset to the original value 
each time. If the counter is reset to the original value the program will 
become a "forever" program and won't go anywhere. 

A value of 2 placed in memory location (address) 755 makes text 
appear right side up on the screen. A value of 4 placed in that location 
makes text appear upside down. In the TO FLIPLET module we have first 
placed 2 in that location using the .DEPOSIT command. Be sure to 
remember when using this command that the address is placed directly 
after the command, followed by the value to be placed in that address.' 

SETCURSOR allows text to be placed anywhere on the screen. We 
have centered the text. It could be placed anywhere desired between 
0 to 23 vertically, and 0 to 37 horizontally. However, horizontal location 
37 is reserved. For all practical purposes horizontal numbering is from 
0 to 36. 

Also listed below is a PROCEDURE PRINTER. I have used it for the 
listings used in this article. We have found this to be one of the most 
useful of all LOGO programs. It makes it easy to keep track of each 
computer session. We especially like it to keep a record of programs that 
work the way we want them. I have made all the inputs variables so that 
one just loads PRINTOUT, calls it, then follows the prompts. The best 
thing about PRINTOUT is that one can print out only the procedures 
wanted, and in the order wanted. The reason for the repeated SETWRITE 
"P: and SETWRITE" commands is to keep the printer from echoing the 
screen. Echoing makes the inputs appear twice on the printed listing. 
In response to the prompt TYPE THE NAME OF THE PROCEDURE, type 
the names of all procedures wanted separated by spaces. Be sure to 
terminate all inputs with a RETURN. 


BASIC BUGS 

(Reprint: FRANTIC, April/May, 1985) 

Have you ever tried to edit a BASIC program only to lose part or all 
of it due to a mysterious system lock-up? Here's a solution. Basic Fix 
transfers BASIC to an AUTORUN.SYS file and fixes this infamous bug, 
along with some other bugs in GET, minus zero, unary minus, and NOT. 

The biggest change in this fixed BASIC is the precedence of NOT, 
which will be HIGH (equal to that of unary minus), instead of LOW. For 
example, with the original precedence, NOT 0 + 1 evaluates to 0, since 
0 + 1 is executed before NOT. With the new precedence, this will evaluate 
to 2 because NOT 0 will be executed before +1. Proper use of 
parentheses will restore the original meaning. 

Other visible changes include: PRINT -0 will give 0 instead of garbage, 
and —1 will evaluate to 1, as it should, instead of -1. See the Atari Basic 
Source Book, Appendix B, for further discussion of the bugs in Atari 
BASIC. 

Another feature is the option to choose the screen color and margin 
defaults. Change the labeled DATA bytes to the combination you prefer. 

This RAM-resident BASIC survives SYSTEM RESET and functions 
correctly in all GRAPHICS modes, at the cost of 4k less free memory. 
To return to this BASIC from DUP.SYS you MUST use option M and 
answer the prompt with address 9BBB. If MEM.SAV is applicable, it will 
be loaded and your program restored; otherwise the computer will return 
to BASIC with no program in memory. 

To create your (almost) bug-free BASIC, boot up from a disk with DOS 
2.OS, 68 free sectors, and no AUTORUN.SYS (or one you don't want), 
and RUN this program, then remove the BASIC cartridge, reboot, and 
you can SAFELY edit and run any Atari BASIC program. You can still use 
a utility such as MACRODOS by appending the BASIC AUTORUN.SYS 
file to it. An autoboot menu program can be used by appending it to the 
BASIC AUTORUN.SYS file. Use DOS menu function C with the /A option 
(see the DOS II Reference Manual for details). 

— Trent Dudley 


LOGO 


TO START 
HAKE "VALUE i 
CT 

FLIPLET 

ENA 

TO FLIPLET 
.DEPOSIT 755 2 
SETCURSOR CIS ill 
PR "TITLE 
HAIT 60 
.DEPOSIT 755 4 
HAIT 68 
.DEPOSIT 755 2 
COURIER 
END 

TO COUNTER 

HAKE "VALUE I VALUE + 1 
IF ;VALUE < 18 CFLIPLET3 
END 
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RAMTALKER 

by Randy Holmes 


1 8£H MXM>tM^> e» IEKMMKKMKKKKMKKKKKKM * lfM 

2 REM ** FROM 5.T.A.T.U.5., VA. ** 

3 REM ** see Mar 5 Jun ACE for *# 

4 REM *# articles and circuits ** 

5 REM ** This version uses port 2 ** 

6 REM ** for KE and XL computers ** 

7 REM ** by ** 

8 REM ** Randy Holmes ** 

3 REM MKKMMMXKMKMKMM*KKKMMKKKM * H£I B H tt£ 

18 REM RAMTALKER VERSION 3,5 2/85 
38 FOR 1-8 TO 2431 READ ZiPOKE 1536+1,Z 
:NEXT I i AIM PRIMT$(167) ,FREQS(1) , AM>$ C 
1),TIMS(41,ARRAY(255) 

35 FOR I=i TO 167:READ A:LET PRINTS(13 
=CHRS(A3:NEXT I 

148 OH VAL(CHRS(AMS3) GOTO 168,288,248 
,278,338,611 

278 CLOSE 84:TRAP 278:POKE 752,1:? "GI 
ME FILE NAHE"i:I*PUT FNS:IF FMS="" THE 
M 68 

338 CLOSE 84:TRAP 338:P0KE 752,1:? "GI 
ME FILE NAME";‘.INPUT FMS;IF FMS= m ' THE 
H 68 

488 DATA 8,212,141,14,212,141,18,212,1 

41,18,212,166,287,32,149,6,173,2,218,1 
62 

688 I=U5RCARR("bhh*LVd"3,10):CLOSE 810 
/16:RETURM :REM AMO "d" IH ADR 5TR 
ING ARE IMMERSE 
611 REM SET HP GRAPH 5CREEM 
621 GRAPHICS 8:SETC0L0R 1,8,8:S£TC0L0R 
2,8,12:C0L0R 1 

631 PLOT 98,18:DRAWT0 98,i88:DRAMTG 26 
5,188’.PLOT S8,188:DRAWT0 48,158 
641 DRAWTO 215,159:ORAWTO 265,188:DRAM 
TO 265,18:DRAMT0 98,18:0RAHT0 48,68;DR 
AWTO 48,158 

651 FOR 1-98 TO 265 STEP 5:PLOT I,99:P 
LOT I,98:MEXT I:FOR 1-18 TO 188 STEP 1 
8:PL0T 91,I:PLOT 92,8:MEXT I:A=5i 
661 FOR 1=188 TO 158 STEP 5:PLQT A,I:P 
LOT A+i,I:A=A-5:MEXT UGOSUB 988 
671 REM SET UP AMO CLEAR ARRAY USE8 
FOR HOLDING SAMPLE VALUES 
681 FOR 1=8 TO 255:ARRAY(I) =8:MEXT I 

684 REM WHICH PIECE OF SOUND (1.75 SEC 
3 

685 ? CHRS(125);“SECTION OF SOUND TO 5 
AMPLE?(1-4)":? " 1=8-1.75sec|2=1.75-3. 
58sec»:? " 3=3.58-4.25secf4=4.25-7,8“ 

686 TRAP 68:INPUT SEC 

687 IF SEC=1 THEN L0C=16384:G0T0 788 

688 IF 5EC=2 THEN L0C=28479:G0T0 788 

689 IF 5EC=3 THEN L0C=24574:G0T0 788 

698 IF 5EC=4 THEN L0C=28669:60T0 788 


691 GOTO 85 

788 ? CHRS(1253;"DURING PLOT, PRESS AN 
Y KEY TO RETURN TO MAIN MENU" 

781 FOR 0=1 TO 35:Z=98+(Q*53:L0C=L0C+2 
55:C0UNT=8:0G=8:REM SET UP COUNT FOR 3 
5 STEPS THROUGH MEMORY 
711 FOR 1=8 TO 255:ARRAY(13=8:NEXT I:R 
EM SET UP TO COUNT ALL VALUES AT LOC 
721 FOR 1=1 TO 225:REM 225 5AM>LE5=l/2 
8 OF A SECOND 

731 5MPL=PEEK(I+L0C):REM GET SAMPLE MA 
L 

741 ARRAY(5MPL3=ARRAY(5MPL)+1:REM SET 
COUNTER ARRAY 
751 NEXT I 

761 REM PLOT THE INFO ON SCREEN 

771 TRAP 811;FOR W=i TO 58 STEP 8.196: 

COUNT=COUHT+i:SMPL=ARRAY(COUNT):IF COU 

NT>255 THEN C0UNT=8 

781 IF 06=1 THEN 881 

791 PLOT {Z-M3,(188+W-SMPL):0G=i 

881 DRAWTO (Z-W),(188+M-SMPL):06=1 

885 IF PEEK (764) 0 255 THEN GOTO 68 

811 NEXT W 

821 NEXT 0 

838 ? CHR$(125);"PRESS ANY KEY TO RETU 
RN TO MAIN MENU" 

848 IF PEEK(7643=255 THEN 848 
858 GOTO 68 

988 REM PUT LABELS ON SCREEN 
958 TIMS="TIME":RESTORE 2878 
968 MLP=ADR(PRINTS) 

1188 RESTORE 2878:FOR 1=8 TO 8:READ FR 
EQS:A=U5R(MLP,195,2+1,ADR(FREQS),LEN(F 
RE0$3);NEXT I 

1118 A=USR(MLP,98,8,ADR(TIMS),LEN(TIMS 
33 

1138 FOR 1=8 TO 8:READ AMPS;A=U5R(HLP, 
198-1,18+1, ADR (AM»S) , LEN (AM’S) 3 : NEXT I 
:RETURN 

2888 DATA 184,281,4,248,9,178,248,5,18 

4.184.282.288.251.96.184.133.215.184.1 
33,214,184,184,168,184,133,217,184 
2818 DATA 133,216,184,184,248,136,133, 

212.24.165.214.181.88.133.214.165.89.1 
81,215,133,215,152,248,15,165,214 
2828 DATA 185,64,133,214,165,215,185,1 
,133,215,136,288,241,132,221,168,8,132 
,228,177,216,168,8,178,16,1,136 

2838 DATA 132,213,138,41,96,288,4,169, 
64,16,14,281,32,288,4,169,8,16,6,281,6 
4,288,2,169,32,133,218,138,41,31 


2848 DATA 5,218,133,218,169,8,162,3,b, 

218,42,282,288,258,189,244,2,133,219,1 
64,221,177,218,69,213,164,228,145 
2858 DATA 214,288,132,228,196,212,288, 
182,24,165,214,185,48,133,214,144,2,23 
8,215,238,221,169,8,197,221,288,159 
2868 DATA 96,28?,F,R,E,0,U,E,N,C,Y,E,D 
,U,T,I,L,P,M,A 

2878 DATA F,R,E,ft,U,E,N,C,Y,E,D,U,T,I, 
L,P,M,A 

ACTXON 


PROC UPCASE(CARD A2,A13 
! 

; RETURNS THE STRING 51 THROUGH 52 
; CONVERTED TO UPPERCASE 

; Ai,A2 ARE THE ADDRESSES OF 51,52 
; RESPECTIVELY 

t 

BYTE ARRAY 51,52 
BYTE I 
Si=Ai 
52=A2 

52(83=51(83 

FOR 1=1 TO 51(83 

DO 

IF , Z>=51(I3 AND Sl(I)>= I a THEN 
S2 (I) =51 (I) + (* A-' a) 

ELSE 

52(13=51(13 

FI 

OD 

RETURN 

HROC L0WCA5E(CARD A2,A13 

t 

; RETURNS THE STRING SI THROUGH 52 
; CONVERTED TO LOHHERCftSE 

f 

; Ai,A2 ARE THE ADDRESSES OF 51,52 
; RESPECTIVELY 

i 

BYTE ARRAY 51,52 
BYTE I 
5i=Al 
52=A2 

52(83=51(8) 

FOR 1=1 TO 51(83 
DO 

IF *Z>=51(13 AND 51(I)>=‘A THEN 
52(13=51(13-('A-'a) 

ELSE 

52(13=51(1) 

FI 
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REH 

ACE Newsletter 

m 

6 

REH ** 

3662 Vine Maple 


7 

REH 

Eugene, OR 97485 

X# 

3 

REH ** 

$14 year 

XX 

9 

REH 

[■jHtXKKMKKKMKXKKKKXXKKKXXM 

XXX 


18 position 5,5:? ue^msmsm^posn 

I0« 3,5:? m ; "UME BmMm*i POSITION 
3,7:? 

15 POSITION 4,9:? 

0 1118 

28 COLOR i:FGR AZ=Y TO Y+38:PL0T X,AZ; 
&RAMTG K+38,AZ:NEXT AZ 

22 C=VA:0N 5U GOTO 36,46,24,28 

23 reh rara rcwrai 


24 COLOR 8IFOR ZA=8 TO 9:FOR AZ=i TO Z 
A STEP 2:PLQT X+15+AZ,Y+ZA+6:PL0T X+15 
~ 6 Z,Y+ZA+ 61 NEXT AZ:N£XT ZA 

26 FOR ZA=9 TO 8 STEP ~1;F0R AZ=i TO Z 
A STEP 2:PLOT K+15+AZ,Y~ZA+251 PLOT X+l 
5~AZ,Y~ZA+25;N£XT AZ;N£XT ZAlGOTO 56 

27 REM OUME 

28 COLOR 81 FOR ZA=8 TO 18;FOR AZ=1 TO 
ZA STEP 2;PLOT X+15+AZ,Y~ZA+25;PL0T X* 
15“AZ,Y~ZA+251NEXT AZ:N£XT ZA 


18 FOR ZA-il TO 15;FOR AZ=1 TO 18 STEP 
2 * PLOT X+15+AZ, Y-ZA+25: PLOT K+i5“AZ,Y 
+ 25;MEXT AZ;HEXT ZA 
Z-"2;FOR ZA-16 TO 18;Z=Z+2;F0R AZ-Z 
TO 8-Z STEP 2;PLOT X+I5+AZ,Y-ZA+25:PL 
01 X+15-AZ,Y-ZA+25:NEXT AZlHEKT ZA 
34 GOTO 56 


35 reh mmm 

36 COLOR 8;FOR AZ=8 TO 9: PLOT X+15+AZ, 
Y+AZ+5;DRAHTO K+15~AZ,Y+AZ+6:MEXT AZ 
38 FOR AZ-18 TO 12:PLOT K+15+9,Y+AZ+6: 
ORAMTO X+15 ~9, Y+AZ+6:NEXT AZ 

48 Z=~2: FOR ZA-13 TO 15;Z=Z+2;F0R AZ=Z 
TO 8~Z:PL0T H+15+AZ,Y+ZA+6;PLOT X+15- 
AZ,Y+ZA+6; MEXT AZ:NEXT ZA 
42 Z=8;F0R AZ=13 TO 19;Z=Z+i:PLQT X+15 
+Z, Y+AZ+6:DRAHTO X+15-Z,Y+AZ+6IMEXT AZ 


44 GOTO 56 

4s reh i mm 

46 COLOR 8;AZ=X+11:ZA-Y+6;GOSUB 52;AZ= 
X+5:ZA-Y+13:GOSUB 52;AZ=X+17:GOSUB 52 
48 Z-0:FOR AZ-14 TO 21:Z=Z+8.65;PLOT X 
+i5+Z,Y+AZ+5;DRAHTO X+15~Z,Y+AZ+5;N£XT 
AZ 

58 FOR Z-KU4 TO X+16;PL0T Z,Y+13:DRAH 
TO Z,Y+i9;XEXT ZlGOTO 56 
52 PLOT AZ+2,ZA:&RAWTO AZ+6,ZA:PL0T AZ 
+ 2 , ZA+7i&RAMTQ AZ+6,ZA+7:PLGT AZ+i,ZA+ 


il&RAKTQ AZ+7,ZA+i 

54 PLOT AZ+I,ZA+6;DRAHT0 AZ+7,ZA+6:F0R 
Z-ZA+2 TO ZA+5IPL0T AZ,Z:DRAWTO AZ+8, 
Z:NEXT Z:RETURN 

56 CHR-ASC(C$£C, C33;IF CHR<96 THEN CHR 

=CHR-32X(CHR>313+64X£CHR<323 

58 CP05=CHRX8+ (PEEK(7563*2563 

68 FOR AZ-8 TO 7;PONE (AZX483 +MEH+ CX/8 

) + CY*483,255-PEEK(CP0S+AZ3:NEXT AZ;RET 

URN 

78 5U-INT(NUM/1883 
88 UA=NUtt-188*SU 
90 RETURN 

188 IF HF THEN GOSUB i486 .‘RETURN 
185 IF IN>48 AND IN£73<4 THEN 1888 
118 IF IN>49 THEN 1658 
128 FOR K-8 TO 2:OD£IM(73+K3=B(IN+K3:N 
EXT K:IN-IN+3;IN(7)=IN(73 +2 
125 X=X(73:Y=Y(133 :NUH=GD(IN(733 :GOSUB 
78:GOSUB 28;IN£73=IN(73+1 
148 RETURN 

158 POKE 656,8:IF 0C<7 THEN POKE 657,4 
#0C+4:? '* “ 

168 IF OC-7 THEN POKE 657,35;? ” " 

178 POKE 656,0:IF CU<7 THEN POKE 657,4 
*CU+4:? "g" 

188 IF CU-7 THEN POKE 657,35:? ”g” 

198 RETURN 

288 CU=CU+i;IF CU>7 THEN CU-7 
218 GOSUB 158 
228 OC-CU 
238 RETURN 

248 CU=CU-i:IF CU<8 THEN CU=8 
258 GOSUB 158 
268 OC-CU 
278 RETURN 

288 IF HF THEN GOSUB 1488;RETURN 
298 ST-CU 

388 IF IN CCU3 -8 THEN GOSUB 1518:RETURN 

318 IF CU-7 THEN NUH=OD(IN£73-13;GOTO 
338 

328 MUM=C (CU,83 
338 HF-1 

348 J=8;IF CU=7 THEN COLOR 1:F0R 1=8 T 
0 38;PLOT X(CU3+I,Y(133;ORAUTO X(CU3+I 
,Y(133+38:60T0 378 

358 IF PCCU,83=8 THEN COLOR 85FOR 1=8 
TO 38:PL0T K(CU3+I,Y(J3:DRAHTQ XCCU3+I 
,Y£J3+30;GOTO 370 

368 FOR 1=8 TO 38 STEP 2:COLOR 8:PLOT 
XCCU3+I,YCJ3:DRAWTO XCCU3+I,YCJ3+38 
365 IF I<38 THEN COLOR 1:PL0T X(CU3+I+ 
i,Y£J3;DRAHTG X£CU3 +1+1, YCJ3 +38 
378 NEXT I 

388 IF CU=7 THEN GOSUB 158:RETURN 
398 J=i2*CINCCU3~13+32 


Kelly 

395 COLOR 8:FOR 1=8 TO 38:PLOT X(CU3+I 
,Y£83+31:BRAHT0 XCCU3+1,YC83+J:NEXT I 
488 RETURN 

418 IF NOT HF THEN GOSUB 1528:RETURN 

428 IF CU=7 THEN GOSUB 598:RETURN 
438 IF ST=CU THEN GOSUB 758:RETURN 
448 IF IN(CU3=8 THEN GOSUB 638:RETURN 

458 NUM=CCCU,IN(CU3-I3 

468 GOSUB 78:T$=5U:TV=yA 

478 IF ST=? THEN NUM=GD(IN(73-i3;GQTQ 

498 

488 NUM=C(5T,83 

498 GOSUB 78:IF £(TS=13 OR fTS=233 AND 
fC5U=13 OR fSU=233 THEN GOSUB 1538:RE 
TURN 

588 IF (CT5=33 OR £T5=433 AND CfSU=33 
OR CSU=43 3 THEN GOSUB 1548:RETURN 
518 IF TVOUA+1 THEN GOSUB 1558:RETURN 

528 IF ST=7 THEN GOSUB 788:RETURN 
538 FOR 1-8 TO IN(5T3-1;NUM=C£5T,I3:CC 
CU,IN(CU33 =NUH:GOSUB 78:X=X(CU3:Y=Y CIN 
CCU3 3:GOSUB 28;IN(CU3 =IN(CU3 +1 
548 C(ST,13=8:NEXT I:INCST3=8:HF=0 
558 IF P(ST,83 =8 THEN RETURN 
568 MUH=PC5T,83:GOSUB 78:X=X(ST3;Y=Y(8 
3:GOSUB 28:C(ST,IN(5T3 3 =NUW:IN(5T3 =1 
578 FOR 1=8 TO 4:P(5T,I3=P(5T,I+13:NEX 
T I:P(ST,53 =0 
588 RETURN 

598 IF 5T<>7 THEN GOSUB 1568:R£TURN 
688 MUH=OD(IN £73-13:GOSUB 78:X=X(CU3:Y 
=Y£133:GOSUB 28;60SUB 158 
618 HF=8 
528 RETURN 

638 IF ST=7 THEN NUH=0D(INC73-13;60T0 
658 

648 NUH=C£5T,83 
658 GOSUB 78 

668 IF VA<>13 THEN GOSUB 1578:R£TURN 
678 IF 5T=7 THEN GOSUB 788:RETURN 
688 GOSUB 538 
698 RETURN 

708 K=X(CU3:Y=Y(IN(CU33;C(CU,IN (CU33 =N 

UM;GOSUB 28:IN£CU3=IN(CU3+1 

718 IN(73 =IN(73-1:OD(IN(73 3 =8;HF=8 

728 IF IN(73=8 THEN COLOR 8:X=X(73;Y=Y 

£133:FOR 1=8 TO 38:PL0T X+I,Y:0RAWTO X 

+1,Y+38:NEXT I:RETURN 

738 NUM=OD(IN(73“13:GOSUB 78:X=X(73;Y= 

Y(133:GOSUB 28 

748 RETURN 

758 FOR 1=8 TO IN(CU3-1:NUM=C(CU,13:GO 
SUB 78;X=X(CU3;Y=Y(13:GOSUB 28;NEXT I 
768 HF=8 
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778 RETURN 6,11) , P C6, 53 , & C51) , OR (233 , F (4) f XC7) , YC 

788 NUM=0D(IN(7)“1) :G05UB 70:FL=I 13) ,IN(7) :OPEN tU,4,8,»K» 

785 IF CFCSU)OVA-i) AND CFC5U)=8) THE 1115 TX$CSi)=''tt»:TX$CI,i)=» ":TX$C2)=T 
N GOSUB 1588:RETURN X$Ci):C$="A23456788TJQK":AZ$=TX$ 

788 IF FCSU)<>VA-I THEN TV=FC5U):GOSUB 1128 FOR 1=1 TO 13:AZ$=" ":R£AD 

1558:RETURN AZ$:TK$(1*7-6,1*7)=AZ$:NEXT I 


888 G05UB 888 
818 ODCINCCU))=8 

828 IF INCCU)=8 THEN G05UB 728:RETURN 

838 GOSUB 738 
835 GOSUB 158 
848 RETURN 

858 IF PCCU,01=8 THEN COLOR 8:FOR 1=8 
TO 38:PLOT XCCU)+I,YC8):DRAHTO XCCU)+I 
,YC8)+38:G0T0 875 

868 FOR 1=8 TO 38 STEP 2:COLOR 8:PLOT 
XCCU)+1,Y(8)iDRAHTO XCCU)+I,YC8)+38 
878 IF I<38 THEN COLOR l:PLOT X(CU)+I+ 
1,Y(8):DRAWTO XCCU)+1+1,Y(8)+38 
875 NEXT I:C(CU,8)=P(CU,6) 

888 IF P(CU,8)=8 THEN RETURN 
888 NUM=C(CU,0):X=X(CU):Y=Y(8):GOSUB 7 
8:GOSUB 28 
888 IN(CU)=1 

818 FOR 1=8 TO 4:PCCU,I)=PCCU,I+i):NEX 
T I:PCCU,5)=8 
828 RETURN 

838 IF HF THEN RETURN 
835 FL=8 

848 IF INCCU)=8 THEN GOSUB 1518:RETURN 

858 IF CU=7 THEN GOSUB 788:RETURN 
868 NUM=CCCU,INCCU)-1):GOSUB 78 
865 IF CF(SU)OVA-l) AND CFC5U)=8) THE 
N GOSUB 1588:RETURN 

878 IF FCSU)OVA-i THEN TV=FC5U):GOSUB 
1558:RETURN 
888 X=XC7) 

888 IF SU=1 THEN Y=Y1 

1888 IF SU=2 THEN Y=Y2 

1818 IF 5U=3 THEN Y=Y3 

1828 IF SU=4 THEN Y=Y4 

1838 GOSUB 28:F(SU)=VA 

1848 INCCU)=INCCU)-l:IF FL THEN RETURN 

1858 CCCU,INCCU))=8 

I860 IF INCCU)=8 THEN GOSUB 850:RETURN 

1878 X=XCCU):Y=YCINCCU)-i):NUM=CCCU,IN 
(CU)~1):GOSUB 78:GOSUB 28 
1880 COLOR 8 

1888 FOR 1=31 TO 45:PLOT XCCU),Y(INCCU 
)-1)+1:DRAMTO X CCU)+38,Y(IN CCU)-1)+1;N 
EXT I 

1188 RETURN 

1118 CLR :DIM TX$(81),AZ$(7),C$(13),C( 


1158 FOR 1=8 TO 6:FOR J=8 TO 5:CCI,J)= 
8:PCI,J)=8:NEXT J:FOR J=6 TO 11:CCI,J) 
=8:NEXT J:N£KT I 

1168 FOR 1=8 TO 23:ODCl)=8:NEXT I 

1178 FOR 1=8 TO 4:F(I)=8:N£XT I 

1188 FOR 1=8 TO 7:X Cl)=21+1*32:Y Cl)=1* 

12:NEXT I:RC7)=268 

1188 FOR 1=8 TO 12:YCl)=1*12:NEXT I 

1288 Yi=8:Y2=32:Y3=64:Y4=86:Y C13)=128 

1218 PONE 756,224 

1228 IN=8:F0R 1=1 TO 4:FOR J=1 TO 13:D 
CIN)=188*1+J:IN=IN+1:NEXT J:NEXT I 
1238 FOR 1=51 TO 8 STEP -1:X=INTCRNDC8 
)* CI+D): T=D CX) : D CX) =D Cl): D Cl) =T: NEXT 
I 

1248 IN=8:F0R 1=1 TO 6:FOR J=0 TO 1-1: 
PCI,J)=DCIN):IN=IN+1:NEXT J:NEXT I 
1258 FOR 1=8 TO 6:CCI,8)=DCIN):IN=IN+1 
:NEXT I 

1268 GRAPHICS 8:POKE 718,8:POKE 752,1: 
COLOR UPOKE 788,15:POKE 712,4:MEM=PEE 
K C88)+PEEK C88)*256 

1288 FOR X=254 TO 258 STEP 2:PLOT X,8: 
DRAHTO X,168:NEXT X 

1288 FOR 1=8 TO 6:NUM=CCI,8):GQSUB 78: 
X=XCI);Y=YC8):GOSUB 28:NEXT I 
1388 FOR 1=8 TO 6:INCl)=1:NEXT I:INC7) 
=8 

1318 GOSUB 180:GOSUB 1468 

1328 CU=0:0C=8:X=XCCU):GOSUB 158 

1338 POKE 764,255:GET HI,A:A=A-32*CA>8 

8) 

1348 IF A=42 THEN GOSUB 288:GOTO 1330 

1358 IF A=43 THEN GOSUB 248:GOTO 1338 

1360 IF A=78 THEN GOSUB 108:GOTO 1338 

1378 IF A=88 THEN GOSUB 288:GOTO 1338 

1388 IF A=68 THEN GOSUB 418:GOTO 1338 

1388 IF A=78 THEN GOSUB 838:GOTO 1628 

1488 IF A=68 THEN 1428 

1410 GOTO 1338 

1428 GOSUB 1608:? "DO YOU WANT TO END 
THE GAME? CY/N)";:GET #1,A 
1438 IF A<>88 THEN GOSUB 1468:G0T0 133 
8 

1448 RUN 

1458 GOSUB 1688:END 
1468 GOSUB 1688:? "ARROWS MOVE, E=END 
GAME F=FOUNDATION N=NEXT CARD, P=PICK 
UP CARDS, D=DROP"; 

1478 RETURN 

1480 GOSUB 1688:? "YOU'VE ALREADY PICK 


ED UP A CARD";:GOTO 1618 
1488 GOSUB 1688:? "THERE ARE NO MGR r 
ARDS IN THE DECK YOU MIST PLAY HI 
THE CARDS SHOMING";:GOTO 1618 
1518 GOSUB 1688:? "THERE ARE NO CARDS 
HERE TO PICK UP";:GOTO 1618 
1528 GOSUB 1688:? "YOU DO NOT HAVE ANY 
CARDS TO DROP";:GOTO 1618 
1538 GOSUB 1688:? "YOU CAN'T PLAY BLAC 
K ON BLACK";:GOTO 1618 
1548 GOSUB 1688:? "YOU CAN'T PLAY RED 
ON RED";:GOTO 1618 

1558 GOSUB 1688:? "YOU CAN'T DROP A";T 
X$CVA*7-6,VA*7):? "ON TOP OF A";TX$CTV 
*7-6,TV*7);:GOTO 1618 
1568 GOSUB 1608:? "YOU CAN'T DROP CARD 
5 HERE";:GOTO 1618 

1578 GOSUB 1688:? "YOU CAN ONLY DROP A 
KING HERE";:GOTO 1618 
1588 GOSUB 1688:? "START YOUR FOUNDATI 
ON WITH AN ACE";:GOTO 1618 
1588 DATA N ACE, TWO, THREE, FOUR, FIV 
E, SIX, SEVEN,N EIGHT, NINE, TEN, JACK 
, QUEEN, KING 

1688 POKE 656,2:POKE 657,2:? CHR$C156) 
;CHR$(156);CHR$ C253);:RETURN 
1618 FOR PAU5E=i TO 386:NEXT PAUSE:60S 
UB 1468:RETURN 

1628 IF FC1) <13 OR FC2)<13 OR FC3X13 
OR FC4X13 THEN GOTO 1338 
1638 GOSUB 1688:? "KflfjMIM CARE TO 
PLAY AGAIN? CY/N)";:6ET BI,A:IF AO”'* 
THEN RUN 

1635 IF A=78 THEN RUN "D:*CNUPLUS" 

1648 GRAPHICS 8:CLR 

1658 IN C7)=IN(7)-1:AVER=8:BVER=8:IF ON 
=15 THEN BVER=D(51):AV£R=D(58) 

1668 IF IN=5i THEN BVER=DC5i) 

1678 FOR VV=8 TO INC7):DC51-VV)=GDCINC 
7)-VV):NEXT VV 

1688 IF BVER)8 THEN DC51-VV)=BVER 
1688 IF AVER>8 THEN VV=VV+i:DC51-VV)=A 
VER 

1788 IN=51~VV:IN C7)=8:IN=IN+i:IF BVER) 

8 THEN IN=IN-l*.GOTO 128 

1888 IF IN>51 THEN 1488 

1818 ODCINC7))=DCIN):IN=IN+l:GOTO 125 
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LEXICON 


XX S KXXXXKKXMKXKXKXXXXKXKKKXKKX 
_ -H xx SEE JUNE f 85 ACE pg. 3 xx 

3 8EH XX LEXICON JULY 1585 

4 REM xx John R« Kelley 

5 REM XX ^ 

6 REH XX SQ 

? reh ** a mmMsmam 

s reh ** mwmt 

5 REH XX XKXXKKKXX X KXKKKXKXXXKXXKKKXX 


C£ KEH5LETTE 


662 VineHaple 


XX 

X* 

xx 

xx 

xx 

xx 


18 GRAPHICS 8:POKE 752,1 
15 POKE 718,8 

28 DL-PEEK(5683 +256XP££K(551) 

25 POKE DL+7,7;POKE 0L+8,6:POSITION 4, 
2:? "L E X I C 0 N " 

38 POSITION 21,2;? "synonyMS - antonyM 

s' ! 


35 POSITION 2,4;? " This program provi 
des the user two hundred words, thei 
r SYN0NYH5 and " 

40 ? "ANTONYMS to develop word skills. 
The WORDS are ceMMoniy used ones and 
are" 


45 ? "presented in a Multiple choice f 
orwat to Make it easier to choose the 

cor-" 


58 ? "rect answer. To use the program, 
sel- ect SYNONYM or ANTONYM and the n 


142 INPUT LS 

143 IF LS="5Y" THEN 158 
145 IF LS="AN" THEN 1338 

147 IF L$<>"5Y” OR LS<>"AN” THEN 142 
158 ? ;? ;? “How Many words would you 
like";;INPUT NUMBER 
155 FOR TOTALS TO NUMBER:? "N" 

157 POKE DL+7,7;P0KE DL+8,6:PQKE 788,2 
12 

168 POSITION 1,2s? 5 AMES 

161 POSITION 25,2;? "WORD 8";TOTAL 

162 POKE DL+5,7;PQKE DL+18,7 
165 POSITION 21,3 

178 AN5=1555+INT(288XRN0 (83 +13X5;RE5T0 
RE AN5;REA0 WORD$;READ AN5$;READ ANT$ 
175 ? WORDS;? ;? ;? 

188 FOR 1-8 TO 3 

158 I(13 -1555+INT(289XRND(83 +13X5;IF T 
(I3=AN5 THEN 158 

288 FOR J=8 TO 3;IF IOJ AND TCI3=T(J3 
THEN POP ;GOTO 158 

218 NEXT J;MEXT I;J=1+INT(RND(83X53:A= 

8;F0R 1=1 TO 5;? I;“3 “j 

£28 IF IOJ THEN RESTORE T(A3 ;READ NOR 

DS:READ TEMPS;READ ANTS:? TEMPS:A=A+i; 

GOTO 258 

238 ? AN5S 


SEE YOU Li 


478 ? ; for i=i 

TO 333;NEXT I;GRAPHICS 8;ENA 
888 C=PEEK(853:R=PE£K(843 
885 POSITION C,R;? BLS:TRAP 885;Y=i:5= 
S^UMS^ 1 " 

818 POSITION C+Y-1,R;? "*";;POKE 764,2 
55:GET 81,A:POSITION C+Y~i,R;IF AOl26 
THEN 825 

815 IF Y>1 THEN Y=Y~1:? “ »;:NUHS=NUMS 
(i,Y3 

828 GOTO 818 

825 IF A=155 THEN ? " ”:GOTO 840 

838 MUMS(Y,Y3 =CHRS(A3:IF Y=i THEN 5=A 

835 ? CHRSCA3;;Y=¥+1:GQTQ 818 

848 POKE ADR(NUH$3,5:Mi=VAL(MUMS3:RETU 

RN 

1288 REM XXX CORRECT ANSWER XXX 
1218 SOUND 0,35,18,18:FOR D£LAY=i TO 1 
5’.NEXT DELAY 

1228 SOUND 8,31,18,10:FOR DELA¥=1 TO 1 
5:NEXT DELAY 

1238 SOUND 8,25,18,18;FOR DELA¥=1 TO 1 

5:NEXT DELAY 

1248 SOUND 8,8,8,8 

1258 RETURN 

1388 REM *XX WRONG ANSWER 5/R XXX 


iiMber” 

55 ? "of WORDS to he learned. The sour 
ce of the WORDS was WEBSTERS New Colie 
- He" 

"Dictionary. 


IPPY LEXICQGRi 


88 POKE DL+23, 6 : POKE DL+24,6 .’POSITION 
5,17:? "DEVISED BY":POSITION 23,17;? » 
JOHN R, KELLEY" 

85 POSITION 7,15s? “Hit ilMi to Leg 
in words." 

58 IF PEEK4532753 =6 THEN GRAPHICS 9: GO 

TO 180 

55 GOTO 58 

188 DIM WORDS C283 ,5YN${283 ,AMTS (203 ,AN 
5$f283 ,TEMP$ C283 ,HUMS(33,BLS(283 ,T C33 
182 DIM GAMES(283,DIFFS(283,LS(33 
185 5AM£S=“PICX THE SYNONYM” 

107 DIFF$= ,, PICK THE ANTONYM” 

119 REH 

129 T£HPS=AM5S;BLS=AN5S:0=387 
125 OPEN Si, 4,9,"K; " 

138 GRAPHICS 8SPOKE 7@S,4;P0K£ 718,15? 

POKE 712,15;POKE 752,1 

132 POKE 798,66;5C0RE=8 

175 ? :? “To Pick the SYNONYM, type *5 

V'”:? :? "and hit EiKiEl" 

137 ? r? 

148 ? :? "To Pick the ANTONYM, type 'A 
;? "and hit IMFf]:r 


258 NEXT Is? 

255 H=Hi 

268 605U8 S88;IF N1<1 OR Nl>5 THEN P05 

ITION C, R : GOTO 260 

278 IF NlOJ THEN 319 

238 5C0R£=5CBR£+1:GOSUB 1298;? ;POKE 8 

5,28;? “Good!”;P9KE 29,8 

258 IF PEEK(283<58 THEN 258 

388 GOTO 348 

318 GOSUB 1388:POSITION 8,2:? "Sorry, 
the answer; “ 

315 POKE DL+?,?:POXE DL+8,7 

328 POSITION 25,2s? AM5$:? ;? “Kit f2U 

2QH to continue." 

338 POKE 764,255;GET 111,A;IF A<>155 TH 
EM 338 

348 ? ”N";NEXT TOTAL 
498 POSITION 1,2;? 5AMES 
418 POSITION 2,5;? "Out of ";NUMBER;" 
questions, you answered";? 

428 ? SCORE;" correctly. Your score is 
3 1 ; 

438 ? INT((SCORE/NUf®ER3X180+0,53;“v ," 

435 ? ;? "[2HICE] for More words, a t 
C quit.” 

448 POKE 764,255;GET Si,A;IF A<>155 AN 

D A<)42 THEN 448 

459 IF A=155 THEN 138 

MtKKKKKKKKKMK" 


1318 SOUND 8,78,12,8:FOR J=8 TO 6.‘FOR 
K=8 TO 7:NEXT KiMEXT J.’SOUMD 8,8,8,9;? 
"5":RETURN 
1338 REM 

1348 ? s? s? "How Many words would you 
like";’.INPUT NUHBER 
1345 FOR T0TAL=1 TO NUMBER:? "X" 

1358 POKE DL+7,7;P0KE DL+8,6:PGK£ 788, 
212 

1355 POSITION 1,2:? DIFFS 
1368 POSITION 25,2:? "WORD 8";TOTAL 
1365 POKE DL+5,7:P0KE DL+18,7 
1378 POSITION 21,3 

1375 AN5=1555+IMTC288XRND(83 +13X5:REST 
ORE ANS:READ WORDS:READ SYMSlREAD AN5$ 

1388 ? WORDS;? ;? •? 

1385 FOR 1=8 TO 3 

1358 T(13 =1555+INT(260XRND(83 +13X5;IF 
T(I3=ANS THEN 1359 

1355 FOR J=8 TO 3;IF I<>J AND TCI3=T(J 
3 THEN POP :GOTO 1358 
1488 NEXT JiMEXT I;J=i+INT(RND(83X53sA 
=8:FOR 1=1 TO 5:? I;"3 "; 

1418 IF IOJ THEN RESTORE T(A3 :READ WO 
RDS:R£AD 5YN$:READ TEMPS:? TEMPS:A=A+i 
:60T0 1438 
1428 ? ANSS 
1438 NEXT Is? 

1435 N=Ni 
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by John Kelly 


1448 GGSUB 888:IF N1<1 08 81)5 THEN P0 

SITION C,8:GOTO 1448 

1445 IF NiO J THEM 1465 

1458 5C0R£-SCO8E+i:GO5UB 1288;? ;P0KE 

85,28;? "Good!";POKE 28,8 

1455 IF PEEK(283<98 THEM 1455 

1468 GOTO 1488 

1465 G05UB 1388;P05ITI0M 8,2;? "sorry, 
the answer; " 

146? POKE DL+7,7:P0K£ BL+8,7 
1478 POSITION 25,2;? ANS$:? ;? "Hit 13 
to continue." 

1475 POKE 764,255;GET #1,A:IF A<>155 T 
HEM 1475 

1488 ? "S";NEHT TOTAL 
1498 POSITION 1,2;? DIFF$ 

1495 POSITION 2,5;? "Out Of ";NU!«ER;» 
questions, you answered";? 

1588 ? SCORE;" correctly. Your score i 
s; 

1585 ? IMT(C5C0RE/MUHBER3*188+8.53;"X. 

a 

1518 ? ;? •mnmm for wore words, E 
| to quit." 

1515 POKE 764,255;GET ttl,A;IF A<>155 A 
HD A<>42 THEM 1515 
1528 IF A=155 THEM 138 
1525 :? 

1538 ? ‘‘■■ssszinas^iioHH 

? FOR 

i TO 333;NEXT I;GRAPHICS 8:END 
2888 BATA ABATE,DIMINISH,INCREASE 
2885 BATA ABILITY,TALENT,INCAPACITY 
2818 BATA ABSENT,AWAY,PRESENT 
2815 BATA ACCOST,ADDRESS,AVOID 
2828 BATA ADVERSE,CONTRARY,FAVORABLE 
2825 BATA AGITATE,AROUSE,PLACATE 
2838 BATA ALLOW,PERMIT,FORBIB 
2835 BATA ANXIETY,FEAR,ASSURANCE 
2848 BATA APPEASE,PACIFY,AROUSE 
2845 BATA ARRANGE,REVISE,CONFUSE 
2858 BATA ASSIST,HELP,HINBER 
2855 BATA ATTACH,AFFIX,SEPARATE 
2868 BATA AUTHENTIC,GENUINE,FALSE 
2865 BATA AWKWARD,GAUCHE,ADROIT 
2878 BATA BANISH,BI5MIS5,ACCEPT 
2875 BATA BANAL,TRITE,NOVEL 
2888 BATA BEAUTIFUL,COMELY,HOMELY 
2885 BATA BEGET,PRGBUCE,BESTRGY 
2898 BATA BENEATH,BELOW,ABOVE 
2895 BATA BIGOT,FANATIC,LIBERAL 
2188 BATA BLESS,EXTOL,CURSE 
2185 BATA BONDAGE,SLAVERY,FREEDOM 
2118 BATA BORDER,EDGE,CENTER 
2115 BATA BUOYANT,RESILIENT,DEJECTED 
2128 BATA BURDEN,ENCUMBER,LIGHTEN 
2125 BATA CALAMITY,ADVERSITY,FORTUNE 


2138 BATA CANCEL,ERASE,ENACT 
2135 DATA CALLOUS,UNFEELING,SENSITIVE 
2148 BATA CAUSE,INCENTIVE,EFFECT 
2145 BATA CAUTION,PRUDENCE,ABANDON 
2158 BATA CHARGE,ACCUSE,ACOUIT 
2155 BATA CHERISH,VALUE,REJECT 
2168 DATA CLEVER,TALENTED,CLUMSY 
2165 BATA COMPOSE,FASHION,DESTROY 
2178 BATA CONCISE,INCISIVE,VERBOSE 
2175 BATA CONTAIN,EMBODY,EMIT 
2188 BATA COURAGE,BRAVERY,COWARDICE 
2185 BATA CRAFTY,CUNNING,CANDID 
2198 BATA CURRENT,PRESENT,ANCIENT 
2195 BATA CURT,ABRUPT,SMOOTH 
2288 BATA DAMAGE,DEFACE,REPAIR 
2285 DATA DEBASE,DEGRADE,RESTORE 
2218 BATA DECEIT,GUILE,CANDOR 
2215 DATA DEFEAT,CONQUER,SURRENDER 
2228 BATA BELAY,DETAIN,HASTEN 
2225 BATA DEMUR,DOUBT,DECIDE 
2238 BATA DEPART,LEAVE,REMAIN 
2235 BATA DETACH,CURTAIL,ENLARGE 
2248 BATA DISCREET,TACTFUL,RUBE 
2245 BATA BIVER5E,DISTINCT,ALIKE 
2258 BATA DOGMA,DOCTRINE,CONDUCT 
2255 BATA DOUBT,DISTRUST,BELIEF 
2268 BATA DRIVE,FORCE,INDUCE 
2265 BATA EAGER,FERVENT,APATHETIC 
2278 BATA EASY,SIMPLE,DIFFICULT 
2275 DATA EDICT,DECREE,INTENTION 
2288 BATA ELECT,CHOOSE,REJECT 
2285 BATA ELEVATE,UPLIFT,DEPRESS 
2298 BATA ELUDE,AVOID,MEET 
2295 BATA EMERGE,APPEAR,VANISH 
2388 BATA EMPLOY,UTILIZE,DISCARD 
2385 BATA ENDURE,SUSTAIN,SUCCUMB 
2318 BATA ENTIRE,TOTAL,PARTIAL 
2315 BATA ERASE,CANCEL,ENACT 
2328 BATA EXALT,ELEVATE,DEBASE 
2325 BATA FACE,FRONT,BACK 
2338 BATA FAILURE,FIASC0,5UCCE5S 
2335 BATA FEAR,BREAD,COURAGE 
2348 DATA FICKLE,CHANGEABLE,CONSTANT 
2345 BATA FOLLOW,COMPLY,AVOID 
2358 BATA FORM,FASHION,DESTROY 
2355 BATA FORWARD,ADVANCE,RETARD 
2368 BATA FREEDOM,LIBERTY,BONDAGE 
2365 BATA FRIGHTEN,SCARE,SOOTHE 
2378 BATA FURNISH,PROVIDE,DIVEST 
2375 BATA GAIN,REACH,LOSE 
2388 BATA GARNISH,ADORN,DEBASE 
2385 BATA GENTLE,TAME,FIERCE 
2398 BATA GENEROUS,UNSELFISH,GREEDY 
2395 BATA GIGANTIC,ENORMOUS,SMALL 
2488 BATA GLOOM,DARKNESS,LIGHT 
2485 DATA GLUM,MOODY,MERRY 
2418 DATA GLORY,HONOR,CONTEMPT 


2415 BATA GOOD,VIRTUOUS,EVIL 

2428 BATA GRACE,BEAUTY,HOMELINESS 

2425 BATA GRADUAL,DELIBERATE,SWIFT ^ 

2438 DATA GRANT,ALLOT,CONFISCATE 

2435 BATA HAIL,GREET,AVOID 

2448 BATA HAPPY,CHEERFUL,DEPRESSED 

2445 DATA HARASS,TORMENT,COMFORT 

2458 DATA HARM,DAMAGE,BENEFIT 

2455 DATA HASTEN,HURRY,BELAY 

2468 BATA HEAVY,SERIOUS,LIGHT 

2465 BATA HESITATE,FALTER,PROCEED 

2478 BATA HONOR,ESTEEM,CONTEMPT 

2475 BATA HORRID,AWFUL,BEAUTIFUL 

2488 BATA HUMBLE,MODEST,PROUD 

2485 BATA IDEAL,PERFECT,ACTUAL 

2498 BATA IGNORANT,UNLEARNED,EDUCATED 

2495 BATA ILLUSION,FANTASY,REALITY 

2588 BATA IMMATURE,CHILDISH,MATURE 

2585 DATA If#ART,INFORM,HIDE 

2518 BATA IMPROVE,HELP,IMPAIR 

2515 BATA INCLUDE,CONTAIN,OMIT 

2528 BATA INDGLENT,LAZY,ALERT 

2525 BATA INSULT,WRONG,PRAISE 

2538 BATA IRRITATE,ANNOY,GRATIFY 

2535 BATA JARGON,DIALECT,BABBLE 

2548 BATA JESTER,CLOWN,SCHOLAR 

2545 BATA JOYOUS,HILARIOUS,SORROWFUL 

2558 DATA JUMBLE,CONFUSION,ORDER 

2555 DATA JUST,FAIR,DISHONEST 

2568 DATA JEER,MOCK,PRAISE 

2565 DATA JUSTIFY,EXCUSE,BLAME 

2578 DATA KEEN,SHARP,BLUNT 

2575 DATA KILL,SLAY,SAVE 

2588 DATA KINDRED,FAMILY,STRANGERS 

2585 DATA KISS,CARESS,SPURN 

2598 DATA KNACK,SKILL,INABILITY 

2595 DATA KNOW,COMPREHEND,DOUBT 

2680 DATA LABOR,ENDEAVOR,LEISURE 

2685 DATA LANGUAGE,SPEECH,GIBBERISH 

2618 DATA LATENT,HIDDEN,VISIBLE 

2615 DATA LEAN,DEPEND,RAISE 

2628 DATA LESSEN,DECREASE,EXPAND 

2625 DATA LIBEL,SLANDER,APPLAUSE 

2638 DATA LIVELY,ACTIVE,LISTLESS 

2635 DATA LOGICAL,VALID,SPURIOUS 

2648 DATA LUSCIOUS,DELECTABLE,UNSAVORY 

2645 DATA MADNESS,INSANITY,SANITY 
2658 BATA MALICE,GRUDGE,AFFECTION 
2655 BATA MANY,NUMEROUS,FEW 
2668 BATA MANAGE,CONTROL,ABANDON 
2665 BATA MEASURE,TEST,GUESS 
2678 BATA JOB,FIX,HURT 
2675 BATA METTLE,BRAVERY,FEAR 
2688 BATA MIGHTY,STRONG,FRAGILE 
2685 BATA NAIVE,INNOCENT,WORLDLY 
2698 DATA NARROW,BIGOTED,TOLERANT 
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BASIC 8K RAM 


Joe jcorj cor.it 

2655 DATA NOTIFY,INSTRUCT,DELUDE 
&ATA NOBLE,EMINENT,MEAN 
DATA HEAT,TRIM,DIRTY 
2?i8 DATA NURTURE,VALUE,REJECT 
2715 DATA OBEDIENT,COMPLIANT,OBSTINATE 

2729 DATA OBLIGE,COMPEL,PERSUADE 
2725 DATA OBSCURE,VAGUE,CLEAR 
2759 DATA OBTAIN,ACQUIRE,LOSE 
2755 DATA ODIOUS,MEAN,DECENT 
2748 DATA OPEN,UNLOCK,CLOSE 
2745 DATA PACIFY,CALM,AROUSE 

2758 DATA PANIC,ALARM,CALMNESS 
2755 DATA PART,PIECE,WHOLE 
2768 DATA PERIL,DANGER,SAFETY 
2765 DATA PERSIST,LAST,QUIT 
2778 DATA PLEAD,BEG,DENY 

2775 DATA POLLUTE.CORRUPT.PURIFY 
2788 DATA PROPEL,MOVE,STOP 
2785 DATA QUAINT,ODD,ORDINARY 

2759 DATA QUICK,FAST,SLOW 
2755 DATA QUIT,STOP,CONTINUE 
2888 DATA QUESTION,ASK,ANSWER 
2885 DATA RACKET,NOISE,QUIET 
2818 DATA RAPID,FAST,SLOW 

2815 DATA RAVAGE,DESTROY,CONSERVE 
2628 DATA REACT,REPLY,IGNORE 
2825 DATA RUSH,HURRY,DELAY 
2850 DATA RUSTIC,RURAL,URBANE 
2855 DATA SALARY,WAGES,GIFT 
2848 DATA SEIZE,RESTRAIN,RELEASE 
2?'5 DATA SELECT,CHOOSE,REFUSE 
DATA SQUABBLE,ARGUE,AGREE 
2855 DATA START,BEGIN,END 
2868 DATA STINGY,GREEDY,GENEROUS 
2865 DATA TACT,FINESSE,BLUNDER 
2878 DATA TANGIBLE,PHYSICAL,SPIRITUAL 
2875 DATA TENACITY,PERSEVERANCE,SLOTH 
2888 DATA TERSE,BRIEF,LENGTHY 
2885 DATA THWART,FOIL,FULFILL 
28SS DATA ULTIMATE,FINAL,FIRST 
2865 DATA UNCERTAIN,HAZY,CLEAR 
2888 DATA UNDER,BELOW,ABOVE 
2685 DATA UNIFORM,ORDERLY,ERRATIC 
2618 DATA UNTAHED,SAVAGE,GENTLE 
2515 DATA USUAL,€GMMGN,RARE 
2628 DATA VACANT,EMPTY,FULL 
2925 DATA VAGUE,HAZY,CLEAR 
2658 DATA VALID,LEGAL,VOID 
2655 DATA VERBAL,SPOKEN,WRITTEN 
2640 DATA VULGAR,GROSS,REFINED 
2845 DATA WAGES,PAY,GIFT 
2958 DATA WAIVE,RENOUNCE,UPHOLD 
2655 DATA WRANGLE,QUARREL,HARMONY 
2668 DATA WRONG,FALSE,RIGHT 
2665 DATA WRECK,DESTROY,MAKE 
2978 DATA YEARNING,CRAVING,AVERSION 
29/5 DATA YIELD,GRANT,REFUSE 
2689 DATA YOUTHFUL,YOUNG,OLD 
2865 DATA ZEAL,ARDOR,APATHY 
2968 DATA ZEALOUS,EAGER,COOL 
29*5 DATA ZENITH,5UPWIT,DEPTH 


0 REM SAVE"D:8ASIC8K = RAM" 

18 DATA 184,104,133,286,184,133,285,10 

4,133,284,184,133,283,184,194,133 

14 DATA 287,165,283,41,63,74,133,284,1 

69,8,106,133,283,173,1,211,9 

18 DATA 2,141,1,211,165,284,24,185,168 

,133,284,169,127,165,207,298 

22 DATA 19,177,285,145,203,136,16,249, 

248,19,234,177,203,145,205,136 

26 DATA 16,249,173,1,211,41,253,141,1, 

211,96,-1 

86 REM 1824 is the start of the casset 
te buffer, if you use cassette & have 
used page 6, then lower RAMTOP to 
85 REM 159 and let A-256#155 
98 A-1824;I-A;REM The -1 above is not 
part of code. It just stops the loop 
100 READ X:IF K)-8 THEN POKE I,K;I-I+i 
:GOTO 188 

288 DIM X$(1283,A$(1283:A$-CHR$(8);A$ ( 
1281~CHR$(83:A$(23-A$:REM A$ can be wh 
atever you want. I used CHR$(8), 

285 REM hearts, as a de»o point only, 

218 ? "ENTER A STRING TO BE SAVED...» 

228 INPUT K$:IF X$-"“ THEN 488 

238 IF LEN (X$3 <128 THEN K$CLENCX$3+13r 

A$ 

248 ? "ENTER IDtt OF RAM SECTOR TO WRIT 
E (8-631 ;;» 

258 INPUT IDNO 

268 IF IDN0<8 OR IDN0>63 OR INT(IDNO)< 
>IDNO THEN GRAPHICS 8:? ;? :GQTO 248 
278 X=USR(A,ADR(X$3,IDNO,81 
288 GOTO 219 

489 ? "ENTER IDtt OF RAM SECTOR TO READ 
(8-633 "; 

418 INPUT IDNO 

429 IF IDN0<8 OR IDN0>63 OR INT(IDN01< 
>IDNO THEN GRAPHICS 8;? ;? ;GOTO 248 
425 X$(1283-» ";REM Must be used or pr 
ogr3» will not work. 

438 X-USR(A,ADR(X$3,IDNO,13 
448 ? K$ 

458 GOTO 488 

568 REM To put program into a string, 
change line 98 to read 1=1:DIM F$(763, 

585 REM Change line 188 to read READ X 
* IP K>=8 THEN F$ (II=CHR$(X);1=1+1:G,1 
88 , 

518 REM Change lines 278 and 438 from 
A to ADR(F$l, 
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188 REM BASIC FIX - USE MTH BOS 2.8S 

118 OPEN #1,8,6, "B iAUTORUN.SYS":FOR 1= 

1 TO 183:REAB J;PUT #i,J:MEXT I 

128 6.255,255,41,155,215,155,165,18,14 

1,ITS,155,165,11,141,188,155 

1J8 B.165,12,141,66,155,165,13,141,67, 

155,288,1,12,64,21,162,8,165 

148 B.12,157,66,1,32,86,228,163,144,13 

3,186,163,1,157,66,3,163,211 

158 B.157,68,3,163,155,157,63,3,169,12 

,157,74,3,32,86,228,169,156 

168 B.133,213,165,188,133,225,168,8,13 

2,212,132,224,162,4,177,212 

178 B.145,224,288,288,243,238,213,238, 

225.282.288.242.238.6.169 

188 B.178,133,18,169,155,133,11,169,65 

,133,12,169,155,133,13,165 

158 REM NEXT BYTE 15 LEFT MARGIN {2) 

288 B.2,133,82,169 

218 REM NEXT BYTE IS RIGHT MARGIN {33J 

228 B,35,133,83,169 

238 REM NEXT BYTE IS LETTER LUMINANCE 

248 B.282.141,157,2,163 

258 REM NEXT BYTE IS FOREGRQUNB COLOR 

268 B.148,141,198,2,169 

278 REM NEXT BYTE IS BORBER COLOR 

268 B.8,141,288,2,24,96,32,159,23,163, 

255,133,8,48,28,169,64 

238 B.141,66,155,165,21,141,67,155,165 

,159,141,179,155,169,23 

388 B.141,188,155,32,137,155,76,8,168, 

69,58,155,8,156,255,187 

318 FOR 1=1536 18 1562:REAB J:POKE I,J 

:NEXT I 

328 PORE 2686,8:I=U5RU536,48128,1824) 

:I=USR (1538,48968,7168):POKE 2686,2 
338 B.184,162,16,169,11,157,66,3,184,1 
57,69,3,184,157,58,3,184,157,73,3,184, 
157,72,3,76,86,228 

348 B.FOR 1=1 TO 73:REAB J:PUT itl,J:NE 
XT I:CLOSE #1:ENB 

358 B.87,172,87,172,228,188,172,181,17 

2,228,228,76,169,78,163,76 

368 B,168,191,173,172,175,172,76,172,1 

91,138,156,132,156,76,181,151 

378 B.168,159,158,159,248,3,76,84,169, 

282.288.1.96.76.84.169 

388 B.248,4,73,128,133,212,76,186,171, 

32,81,218,169,7,133,192 

358 B.76,134,188,226,2,227,2,43,155 



REVERSER 


t> y John 


Kelly 


1 8EH XKKMKXXKXKMMMMMXEMMKMKMKMKKKfcX* 

2 REH ** FILE COPY *** FILE TAPE ** 

3 REH ** REVERSER 3/12/83 ** 

4 REH ** JOHN R. KELLEY ** 

5 REH ** 608 5.E. 28TH AVE ** 

6 REH #* PORTLAND, OR 97214 ** 

7 REH KKKKICKMKKKKKMKKK - XKICKKKKMMKMI H B B t 

40 DIH NAKE$(20),A$ (183,XX$ (1) 

60 DIH £LI5T$(93,HYLIST$(S3,RLIST$(93 
70 NA!«$="REVER5E" 

80 GOSUB 298 
90 OPEN #1,4,0,"*;" 

188 ? "Welcome to the game of itWJjbHi " 

118 ? "Do you need instructions CY/N3" 
;;GOSUB 878;IF XX=4I THEN GOSUB 1800 
128 ? "NHow many digits would you";? " 
like (3-93»; 

138 G05HB 878:HAX=XX 
148 ? XX; 

158 IF HAX<3 OR HAX>9 THEN ? "SSorry.. 
.only numbers between 3-9";GOTO 128 
168 GOSUB 428 
178 TURN-TURN+1 
188 ? "N" 

198 ? "TURN It ";TURN 


448 NEXT K 

450 FOR 1=1 TO MAX 

468 RN=INT(RHD{83*HAX3+I 

478 IF ELI5T$(RN,RN3 <>"8" THEN 468 

488 HYLI5T$CI,I3 =STR$(RN3:ELI5T$(RN,RM 

3=STR$(RN3 

498 NEXT I 

588 GRAPHICS 2 

585 POKE 718,8 

518 X=9+INT(KAK/23 

528 FOR 1=1 TO MAX 

538 GRAPHICS 2'.POKE 710,8 

548 POSITION X,4 

558 ? #6;HYLI5T$(i,I3 

568 SOUND 1,INT(RND(83*1883+(2*13,10,1 

8:WW=5:G05UB 698 

578 SOUND i,0,18,18;HH=5:GO5UB 698 

588 X=X-i 

598 NEXT I 

680 SOUND 1,8,0,8 

618 RETURN 

628 FOR 5=1 TO R 

638 RLI5T$(R-S+i,R-5+13 =HYLIST$ (5,53 
640 NEXT S 

658 HYLI5T$(l,R3=RLI5T$(i,R3 
668 IF MYLI5T$=£LI5T$ THEN 728 


928 TRAP 34567 — 

930 RETURN 

1088 POKE 752,1;? "NYou will be given 
some scrambled":? "numbers from 1 to t 
he number you" 

1018 ? "choose. C 3-9 3 Hit j;**iW :GQ 
SUB 878 

1028 ? "KBy reversing blocks of number 
s try":? "to unscramble them so they a 
re" 

1838 ? "in the usual order(i-93 Hit (31 
BBS2";:G0SUB 878 

1848 ? "SWhen you reverse a block of n 
umbers":? "The reversal always starts 
from the" 

1858 ? "left. For example..Hit 
;GOSUB 878 

I860 ? "Hif you reverse 3 numbers of t 
his";? "combination: 6421735 you would 
get" 

1878 ? "2461735. Only the 6, 4, and 2 
are":? "reversed. Ready? Hit 13111120 "; 
:GOSUB 878:RETURN 

actxon 


200 ? :? "Reverse how many? "; 

218 GOSUB 878 
228 R=XX:? R; 

238 FOR »l=i TO 288:NEXT WW 
248 IF R<2 OR R)HAX THEN 278 
258 GOSUB 628 
268 GOTO 178 

278 ? "Can only reverse from 2 - ";HAX 
;;» digitS":FOR WW=i TO 1288:N£XT WW 
288 GOTO 180 
298 X=3 

388 GRAPHICS 2 

385 POKE 718,0 

318 FOR 1=1 TO LEN(NAM£$3 

328 POSITION K+1,3 

338 ? 86;NAMESCLEM(NAME$3~I+I,LEN€HAME 
$3 3 

348 SOUND 8,INT(RND(83*2553+1,10,12 

358 FOR WN=1 TO 80; NEXT HK 

368 X=X+1 

378 NEXT I 

380 SOUND 0,8,8,8 

398 POSITION 9,5;? #6;"by" 

488 POSITION 4,7:? #6;"John r kelley" 

418 RETURN 

428 FOR K=i TO HAX 

438 HYLIST$CK,K3 =»8»:ELIST$ CK,K3 ="8» 


678 GOSUB 580 
688 RETURN 
698 REH 

788 FOR WAIT=i TO WWlNEXT WAIT 

718 RETURN 

728 FOR 1=1 TO 9 

738 GRAPHICS 2:POKE 718,8 

735 POSITION 5,4;? 86;HYLI5T$ 

748 SETCOLOR 4,INTCRND(83*163,8 
758 FOR 0=15 TO 38 STEP 8.5 
768 SOUND 8,0,18,10 
778 NEXT 0:SOUND 8,8,8,8 
788 NEXT I 

798 ? "NYou won in ";TURN;" turn";:IF 
TURNOl THEN ? "S"; 

808 ? "!":SETCOL0R 4,8,8 
818 TRAP 848:? "Would you like to play 
again (Y/N3"; 

828 INPUT A$:IF A$C1,13="N" THEN 848 
838 TURN=0:POP :? "6":GOTO 128 
848 ? "Thanks FOR playing!":FOR 1=1 TO 
333:NEXT I:GRAPHICS 8:END 
878 REH 

888 SOUND 8,208,18,8:F0R WS=1 TO 188 
898 NEXT WS:SOUND 0,8,8,8:P0KE 764,255 

988 GET tti,XX:XX=XX“48 
918 TRAP 928 


BYTE FUNC INDEX(CARD Ai,A23 

; RETURNS THE POSITION OF STRING r 
; IN 51, RETURNS 8 IF FAILURE 

; A1,A2 ADDRESS OF 51,52 RESPECTIVELY 

BYTE ARRAY 51,52 
BYTE I,J,TEHP 
Si=Ai 
S2=A2 

IF SI(83>=S2(83 THEN 
FOR 1=1 TO 51(83-52(83+1 
DO 

FOR J=i TO 52(83 
DO 

IF Si(1+J~13 =52(J3 THEN 
IF J=52(83 THEN 
RETURN(I3 
FI 

ELSE 

EXIT 

FI 

OD 

OD 

FI 

RETURN (83 
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X Handler 


i X;HANDLER 
?^VlH F$ (153 

I@ GRAPHICS 8;? "X: creator";? :? "ch? 
eking data..," 

15 LIME-1888:TRAP 39 
28 FOR X-i TO ifi:READ BYTE 
30 T9T-T0T*BYTE 

49 IF T0T>999 THEM T91-T9T-1999 
58 NEXT X;READ CHK50H 
68 IF TOTOCHKSUH THEM ? "data error i 
ft line LINE:END 
70 LINE-LIME+18:GOTO 28 
39 IF LIME(1388 THEM ? "hissing a data 
i ioe";EMD 

180 ? "Enter DEO:FILENAME'%' ;INPUT F$ 
195 ? "creating file..." 

118 RESTORE 1888 
128 OPEN ta,8,8,F$ 

I3C TRAP 288 

148 FOR K-i TO 18:READ BYTE 

158 PUT #1*BYTE:MEKT K 

168 READ C-HK SUM; GOTO .148 

788 IF PEEK(1953 06 THEM ? "Error »;PE 

EK(i?5):EKD 

11% CLOSE #1:? "Atresone..,file ceaplet 
edr‘:END 

1898 DATA 255,255,8,34,251,34,165.12,A 
41,68,287 

1018 DATA 34,165,11,141,61,5*.. 169,59,1 
1.1,12, 28- 

DATA 169,34,133,13,169,31,141,231 
> f x6-9,128 

1832 DATA 35,141.232,2,166,8,185,£6,3, 
248,144 

1048 DATA 6,288,280,288,192,34,144,244 
; 96,169,631 

ir?58 DATA 86,153,26,3,169,66,153,27,3, 
169,483 

1069 DATA 34,153,28.3,96,32,65,34,32,i 
0.. 975 

1878 DATA 34,96,77,34,97,34,119,34,132 

,34,666 

1880 DATA 158,34,174,34,189,74,3,261,9 
,249,774 

1898 DATA 36,169,9,141,26,35,169,192,1 
41,27,768 

1188 DATA 35,76,171,34,189,74,3,41,8,2 
46,631 

1119 DATA 66,173,26,35,141,28,35,173,2 

7,55,378 

1128 DATA i41,29,35,76,171,34,32,151,3 
4, .176,249 

1138 DATA 42,32,233,34,177,224,76,255, 
34,172,528 

1148 DATA 27,35,248,29,72,32,216,34,18 


4,32,349 

1158 DATA 233,34,145,224,76,255,34,172 
,27,35,584 

1168 DATA 32,216,34,284,29,35,288,9,28 
5,28,584 

1178 DATA 35,288,4,168,136,56,96,168,1 
,24,464 

1188 DATA 96,189,66,3,281,37,288,16,18 
9,77,546 

1198 DATA 3,281,192,144,24,141,27,35,1 
89,76,578 

1288 DATA 3,141,26,35,173,26,35,157,76 
,3,253 

1218 DATA 173,27,35,157,77,3,76,171,34 
,168,166 

1228 DATA 171,96,173,26,35,133,224,192 
,288,288,632 

1230 DATA 5,168,216,140,27,35,132,225, 
96,172,840 

1248 DATA 1,211,148,38,35,168,8,148,14 
,218,781 

1258 DATA 148,14,212,168,252,148,1,211 
,252,34,197 

1268 DATA 39,35,168,8,96,172,38,35,148 
,1,896 

1278 DATA 211,168,64.148,14,212,164,16 
,148,14,31 

1288 DATA 210,238,26,35,288,3,238,27,3 
5,168,211 

1290 DATA 1,96,0,0,8,8,8.224,2,225,759 

1380 DATA 2,8,34,8.8,8,8,8,8,8,795 
1318 REM * 318 BYTES 


ACTION 


; DEMO TO SHOW HOW TO EMBED CONTROL 
; CHARACTERS IN ACTION! TO USE THE 
; ACTION! EDITOR AS A HORD PROCESSOR 
; FOR AM EPSOM MK-88 PRIMTER 
j by John Logan 


^ElG.EHBEDDED CONTROL KEYS 


tFlH 

TEST START 

«CTRL N ENLARGES ONE LIME 
TEST LIME 
tCTRL 0 SHRINKS 
TEST LIME 
-CTRL R CANCELS 


TEST LIME 

4EE5C ESC E EMPHASIZES 
TEST LIME 

*FE5C ESC F CANCELS 
TEST LIME 

fcGESC ESC G DOUBLE STRIKES 
TEST LIME 

$:HE5C ESC H CANCELS 
TEST LIME 

fcElGESC ESC E ESC ESC G DOES BOTH 
TEST LIME 

iFfcHESC ESC F ESC ESC H CANCELS BOTH 


TEST LIME 

I4ESC ESC 4 ITALICS ON 
TEST LIME 

fcSESC ESC 5 ITALICS OFF 
TEST LIME 


TEST LIME 
iCTRL I INDENTS 
NEXT LIME 


CTRL L FORM FEEDS TO MEXT PAGE 

ESC ESC A CTRL A TO CTRL Z SETS LIME F 

EED TO 1 TO 26 /72 

ESC ESC 8 CANCELS EVERYTHING 


TO PRINTOUT 

PRINT [TYPE THE TITLE] 

HAKE "TITLE RL 
SETWRITE "P: 

PR :TITLE 
PR n 

SETWRITE £3 

PRINT [TYPE YOUR NAME AND THE DATE] 
MAKE "NAME RL 
5ETJ4RITE "P; 

PR :NAME 
PR £3 

SETWRITE £3 

PRINT ETYPE THE NAME OF THE PROCEDURE] 

MAKE "PRO RL 
SETWRITE "P: 

PO :PRO 
SETWRITE £3 
END 
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THREE ACTION PROGRAMS 

by JOHN LOGAN 

PRINTER ACT 012 
CTRLKEYSACT 005 
NAVAJO ACT 018 

PRINTER,ACT documents how to enter EPSON printer codes in an 
ACTION! program with examples of each feature. 

CTRLKEYS.ACT shows how to embed control characters in an ACTION! 
source document. This allows one to use the ACTION! text editor as a 
word processor with printer control. 

NAVAJO.ACT draws a bargello needle point, a patchwork quilt and an 
abstract mountain in a Navajo style. Push the joystick trigger to change 
patterns. Push the stick left & right to select color register; push it up 
& down to change color value. 


; PRINTER CODES IK ACTION 
; by John Logan 



; amudj 

i erll-'Maiic] 


PROC PRINTER£3 
OPEN £2,"P:",8,83 


PUTD£2,273 PUTD£2, *E3 
PUTD£2,143 

PRINTDE£2,"PRINTER CODES "3 

PRINTDE (2,"__"3 

POTD(2,273 PUTD£2,*F3 

; Rett SET LINE FEED 
PUTDC2/273 PUTD£2,*33 PUTD£2,783 

PRINTDE £2,""3 

PRINTDE(2,“STANDARD PRINT"? 

PRINTDE£2,"EMPHASIZED STD PUTD£2,273 
PUTD£2,*E3 "3 

PUTD£2,273 PUTD£2,'E3 PRINTDE£2,"EMPHA 
SIZED STD"3 

PRINTDE£2,"T0 CANCEL PUTD£2,273 PUTD£2 
, *F3 ”3 

PUTD£2,273 PUTD£2,*F3 PRINTDE£2, n CANCE 
LLED"3 


PRINTDE£2,"DOUBLE STRIKE PUTD£2,273 Pl 
TD£2,*G3 ”3 

PUTD£2,273 PUTD£2,‘G3 PRINTDE£2,"DOUBL 
E STRIKE STD»3 

PRINTDE£2,»T0 CANCEL PUTD£2,273 PUTD£2 
, , H3 ,, 3 

PUTD£2,273 PUTD£2,‘H3 PRINTDE£2,"CANCE 
LLED"3 

PRINTDE£2,"ENLARGED PRINT PUTD£2,143“3 

PUTD£2,143 PRINTDE£2,"ENLARGED PRINT » 

3 

PRINTDEL2, "CANCELS AUTOMATICALLY AFTE 
R EA LINE FEED n 3 

PRINTDE£2, "CONDENSED PRINT PUTD£2,153 
"3 

PUTD£2,153 PRINTDE£2,"C0NDENSED PRINT 
"3 

PRINTDE£2, "TO CANCEL, PUTD£2,183"3 

PUTD£2,183 PRINTDE£2,"CANCELLED"3 
PRINTDE£2,""3 PRINTDE£2,""3 

PUTD£2,143 PRINTDE£2,"COMBINATIONS;"3 
PUTD£2,143 PRINTDE£2,"STD ENLARGED"3 

PUTD£2,273 PUTD£2,'E3 

PUTD£2,143 PRINTDE£2,"ENLARGED + EW>HA 

SIZED") 

PUTD£2,273 PUTD£2,‘F3 

PUTDC2,273 PUTD£2,*G3 

PUTD£2,143 PRINTDE£2,"ENLARGED * DOUBL 

E"3 

PUTD£2,273 PUTD£2,*E3 

PUTD£2,143 PRINTDE£2,"ENLARGED + DOUBL 

E * EMPHASIZED"? 

; STD LINE FEED 
PUTD£2,273 PUTD£2,*23 

CLOSE£23 

RETURN 
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USING THE UNUSED 

Here are a couple of recent articles describing how to use some of 
that extra memory in the XL (and XE?) machines. — J.B. 

X:HANDLER 

Using the XL's Extra Memory As a Device 
[Reprint: MACE, June, 1985] 

The Atari XL computers have an extra 16k of RAM hidden beneath 
their ROM. This is why the XLs boast 64k RAM while the 800s have 
only 48k. However, this extra memory almost always goes to waste. 
There are many new products coming out soon which will use it, but 
currently there are very few programs besides the Translator Disk and 
DOS XL [and Flight Simulator II — ed.] which utilize it; most don't even 
know about it. In BASIC and all other languages the XLs still have the 
same amount of free memory as a 48k 800. What good is the extra 
memory if it is not used? 

This program allows you to access 14k of the extra 16k as device X: 
(2k is always allotted to I/O space). You can do most things with it which 
you can do with any other device: You can SAVE "X:", LOAD “X:", PRINT 
to a channel opened to X:, GET from a channel opened to X:, etc. You 
can also NOTE and POINT as with a disk drive. The X: device will not 
be killed by RESET. Anything saved to it will be completely invisible to 
everything except the X: handler itself. Do not use X: when the 
DOSXL:XL file of DOS XL is in use, or DOS will be clobbered. 

To use the program, type in the BASIC listing. It will ask you for a 
filespec (D:AUTORUN.SYS or C:) and then create the file . . . After 
rebooting the computer or loading the file from DOS, you will have device 
X: at your disposal. From BASIC try LIST "X:'' when there is a program 
in memory. The screen will flicker as the ROM character set is switched 
on and off. This flicker serves the same purpose as the beeping of the 
disk drive. Type NEW and then LIST the program to verify it is gone. Now 
type ENTER "X:" and LIST again. Ta da! It's back. If the X: handler should 
lock up the computer and leave a bunch of squiggly lines on the screen, 
press RESET and try the operation again. Check to make sure you typed 
in the program correctly. 

HOW IT WORKS 

CIO, the Central Input/Output utility in the operating system, organized 
I/O by devices. Each device has its own handler (or driver), which is a 
program which has the routines necessary to communicate with that 
device. There are five device handlers resident in the OS ROM: the screen 
editor, E:; the display handler, S:; the keyboard handler, K:; the printer 
handler, P:; and the cassette handler, C:. Each has a vector table with 
pointers to five routines: OPEN the device; CLOSE; GET a byte from the 

'evice; PUT; get the STATUS of the device; and do a device-dependent 

r special XIO command. Some of the routines in each handler are not 
used, because you cannot input (OPEN #chan,4,...) from the printer, or 
output (OPEN #chan,8,...) to the keyboard. The five resident handlers 
have their vector tables in order in ROM starting at $E400 (58368), each 
having 16 bytes allotted to it. There are the six vectors of two bytes each, 
a JMP to the power-up initialization of the device, and a spare byte. CIO 
keeps track of where the vector tables for the handlers are by keeping 
a handler address table, HATABS, which starts at $31A (794). Each entry 
in the table takes up three bytes: the designation letter (E, S, K, etc.), 
nd the two-byte address of the handler's vector table. Additional entries 
can be added to the table; the D: handler is added upon booting DOS, 
and the X: handler is added upon loading this program. Whenever I/O 
is done, a call is made to CIO, which tracks down the device handler 
and takes care of everything. 

At the beginning of the program is a routine which makes X: RESET- 
proof. It steals the DOS re-init vector and changes it to point to the X: 
re-init routine, which restores both the D: and X: entries to HATABS after 
each RESET Following this is the X: vector table, and then the actual 
routines. These routines are similar to ones used by Bill Wilkinson for. 
his program which used ordinary memory as a device from the 
September, 1982 COMPUTE! magazine. Near the end of the program 
there are two routines which manage the OS ROM while bytes are being 
read or written to the RAM underneath it. Before disabling the ROM to 
expose the RAM underneath, all interrupts which use the ROM must be 
disabled, because if an interrupt occurs when there are no ROM interrupt 
routines the system will crash. Bit zero of PIA chip location $D301 
(54017, formerly PORTB in the 400/800) controls the state of the CS 
ROM, and bit one controls the state of BASIC ROM. There is also a routine 
which makes sure all reading and writing of data skips over the I/O chip 
region from $D000 to $D7FF (53248 to 55295). 

The X: device is useful as a RAMdisk. It is much faster than floppies 
and can contain up to 14k of data without giving an error. This is the 
equivalent of over 100 single density sectors. Random access can be 
obtained after opening X: by using NOTE and POINT with the low and 
high bytes of the desired address instead of the sector and byte numbers 
of a disk. X: can be opened for append by OPEN #chan,9,0,"X:''. X: is 
perfect for temporary, fast storage. Have fun. 

— Ken Alexander 


HIDDEN XL RAM 

(Reprint: HAUG, June, 1985) 

This program is a slight modification of one written by Kirt Grittner 
and printed in the March, 1985 MAAUG Newsletter of Madison, Wl users 
group. It shows how to use the 8,192 bytes of RAM under BASIC to store 
and retrieve 64 different 128 character strings (8,192 bytes). It's almost 
like having Microsoft string arrays. The April A.N.A.L.O.G. has a RAM 
OS program in it which lets you access the 14k of RAM under the 
operating system. I believe the key to using over 56k of RAM with BASIC, 
in the 800XL, may well lie within this program and the one in the April 
ANALOG. 

The 76 bytes of machine code are in lines 10 through 26. It is located 
into the cassette buffer by line 100. Lines 200 through 270 show how 
to load the 64 X$s. Lines 400 through 490 show how to retrieve any 
one of the 64 X$s. This will provide FREE space to store the pointer file 
for 2730 random access records, or whatever else turns you on. 
Operation of the program is FAST. There is nothing in the screen operation 
to tell you BASIC (and the OS) was turned off and on. It will NOT work 
with a 400 or 800. I revised it to make it relocatable, and then used the 
cassette buffer, as that is used only when doing a coldstart with a disk. 
Cassette users should use the STRING version. Anything put in a 
protected area of RAM can be passed from one program to another, 
therefore your RAM sector data could be passed from one to another 
program, unless you do a coldstart. 

Kurt Grittner was going to tell the Madison, Wl users group how to 
access the rest of the 24k at their next meeting. I hope he and the group 
are willing to share the procedure with the rest of us. 


NEXT 


MEETING 


WED. 



11TH 
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ENHANCED BASIC 

Enhancements to Basic, by First Byte, Box 32, Rices Landing, PA 15357. 

Do you ever get the feeling something is missing from Atari BASIC? 
After all, lots of publication articles are about BASIC automatic 
numbering or renumbering programs. BASIC english error message 
programs, BASIC block delete programs, converter programs, and most 
of all, how to talk to DOS from BASIC. Well, as you probably already 
know, there's just so much you can put in an 8k ROM cartridge. But worse 
yet, Atari BASIC sometimes locks up, and Rev. B BASIC has more 
problems. 

This presents the Atari BASIC user with several options. You can buy 
a “real" computer (not unless it plays Star Raiders and Joust!). You can 
buy a full function BASIC such as Microsoft BASIC, or BASIC XL from 
OSS. They are somewhat expensive and no always 100% compatible 
with Atari BASIC. There are also programs such as Monkey Wrench from 
Eastern House and some other disk based packages which “enhance" 
Atari BASIC. 

Well, a couple of months ago, I mailed $14.95 off to First Byte for their 
Enhancements to Basic program. ETB is advertized to work on all Ataris 
with a minimum of 48k of RAM and revision A, B, or C Atari BASIC. I 
really wasn't expecting much for $14.95, but hoped for something which 
would eliminate the half dozen BASIC utilities I'm always loading when 
entering and debugging BASIC programs. What I received far exceeded 
my expectations. 

First of all there was a letter of apology from the president of First 
Byte for the delay in shipment. It seems they decided to revise the 
program so it would be compatible with several Atari DOS's (Atari 2.0, 
2.5, 3.0, OSS DOS XL, SpartaDOS). 

The program creates a boot disk which customizes itself to your 
particular flavor of Atari computer hardware and version of BASIC. It then 
generates a disk based version of BASIC. This means 400/800 owners 
no longer need to insert the cartridge. XL/XE owners do need to boot 
with the OPTION key held down. First Byte also claims to correct the 
documented causes of 800 and 800 XL system lockup and the 16 byte 
memory expansion bug of Rev. B BASIC in the 800 XL. This alone should 
make the deal attractive to the XL folks with Rev. B BASIC who think 
it's ridiculous to have to send another $15 to Atari to get a BASIC which 
works (maybe). 

Cold start boot displays a screen with your name, address, and serial 
number (how do they customize this thing for $14.95?), and a title bar 
across the top of the screen. The title bar indicates the type of computer 
on which the program was initialized (800 or XL/XE) and the type of 
DOS the program recognized at boot time. A menu then allows selecting 
three levels of enhancement: Half, Full, and Full with Trace. These modes 
use approximately 4k for half mode and 8k for full and full trace modes. 
Thus, the less the enhancement, the more memory for your program. 
It should be interesting to see if First Byte can modify the program to 
make use of the expanded memory in the new Atari XE. 

I first appreciated the display of error messages in english instead of 
cryptic codes. No more looking for the book. The next nice touch is the 
availability of a HELP screen. ETB then adds the following immediate 
mode commands to BASIC: Automatic line numbering and renumbering, 
delete a block of lines, display disk directory, rename disk files, lock and 
unlock disk files, format disk in single or double density, and list or change 
the variable names used in a program. 

Other commands provide for DOS access, protecting a BASIC program 
from editing, sending screen output to the printer, setting screen margins, 
key board lock, key delay/repeat rates, key click disable, hex to decimal 
conversion and a binary load file for recovering erased DOS 2.oS files 
is available. 

You can also set up the keys 4,5,6,7,8,9 and 0 in conjunction with 
the Control or Control plus Shift keys to print strings of characters to 
the screen with a single key stroke (if I could just get that with 
AtariWriter!). This is great for printer control codes and repetitious 
command or string entry. 

Last but not least is a program mode trace function. This function sets 
up an alternate screen to which program lines are printed as they are 
being executed. Commands are available to switch between screens at 
any time, allowing you to observe the lines which are the source of 
program bugs. This is great for debugging nested loops or for just figuring 
out the flow of that old program anyway. The documentation is relatively 
complete with about 30 pages of plain english and lots of caution notes 
to point out the got-yas. 

The program does take up memory space, but you are allowed to 
specify the level of commands you will need to use. Several commands, 
such as margin width, key click, key repeat rates, etc. would probably 
be better used if they were definable during the system setup. It would 
be nice if you could choose screen default colors at setup time also. On 
an Atari 800, the program crashes (dead screen and keyboard) if you 
fail to remove the BASIC cartridge. First Byte does give fair warning that 
ETB is designed to aid in the writing and debugging of BASIC programs, 
and that it really offers no advantage when simply running utility or game 
programs. 


First Byte offers a 30 day full refund guarantee. When is the last time 
you heard that on a software package? It's really refreshing to find a 
company willing to put its money where its mouth is and offer a 
professional quality program at a very reasonable price. 

— Ron Robinsc 
Florissant, MO—- 


PAPERCLIP 

Review by Mike Dunn, Co-Editor 
(Batteries included, 30 Mural St., Richmond Hill, Ontario, 

L4B 1B5 Canada, $70) 

For several months I have been receiving advertizments about this new 
word-processor for the Atari and how is was as good as or even better 
than the "big" word-processors such as WordStar, Perfect Writer, etc. 
Then the results of a contest in Canada among various computers and 
programs costing up to $20,000, reporting that the Atari version of 
PaperClip was not only the "Best Buy", but comparible to the bigboys. 
Other than thinking that Batteries Included should be congratulated for 
being one of the very few companies coming out with a major new 
product for the Atari, I thought that they were sending me a lot of "Hype". 

I finally received a copy, and can say they do have a real winner, about 
as good for most uses as the "bigboys". 

You begin reading the very clearly written 155 page manual, which 
first tells you to back up your disk! The program comes with a "key" 
which plugs into your joystick for protection, allowing you to make back 
up disks. Similiar to the key from the Synapse program Filemanger 800, 
which is not too surprising since one of the authors of PaperClib is Dan 
Moore, the author of SynFile + . 

You can then customize your word-processor to your needs, setting 
many items such as screen margins (with scrolling to a larger than 40 
column screen if you like), the size of the two windows, color of screen 
(I like the black letters on white background), printer features for most 
any printer, including allowing you to make a custom one with 
microjustification, Macros, and many other items. You can even use an 
AutoSave to disk and use the editing arrow keys without the control key 
if you want. You can then save your options, and they will automatically 
come on each time you boot up your disk. 

When you start typing, the first thing you notice is the beautiful 
character set with true descenders which are very easy to read. 

Besides the usual editing functions whihc all word-processors have, 
there is an Undo command, Multiple Global Substitution, Tagr 
insert/overwrite toggle, and a Letter Swap toggle allowing you 
transpose letters as well as a Word Swap Toggle-feature I really can use— 
but have not found on an Atari Word-processor. For students, there is 
.a word count 

There are the usual Printer formatting functions as well as some 
unusual ones such as Microjustification, three lines of Headers or Footers 
or both, and the ability to use a conditional page break (eg. to make sure 
a table is all on one page). There is also a very nice print preview option. 
Unlike many other word-processors, the editor options are different from 
the printer formatting, so you can make both the same or both different. 
You can use a 40 column screen and an 80 column printer, or an 80 
column scrolling screen with an 80 column printer. Double column 
printing is done by printing both columns at the same time, and you can 
print to the disk drive for modem use. 

There are also some special functons available — a nifty calculator 
for math functions which prints the answer, ability to make a Table of 
Contents and User defined commands, are just some of them. Mail merge 
is easily done, as well as Macros for "boilerplate" (repeating the same 
phase with a single keystroke). 

If all this is not enough for your $50, there are some utility programs 
thrown in, including a very extensive printer driver maker, and a graphics 
dump allowing you to display and print Koala or Atari Tablet, LightPen, 
SynTrend, B/Graph, Fun with Art or Atari Paint pictures either with your 
document or by itself. 

What doesn't this program have compared to others? It does not have 
a spelling checker, you can only get 80 columns on the screen by moving 
a 40 column window, and when typing very fast (faster than I can type 
but Jim Bumpas can type 80 words a minute) it seems to lose an 
occasional character. There are so many commands that it is difficult 
to remember them, although the prompt line on the bottom helps a lot, 
as well as the built in Help files. I understand that a spelling program 
will be availble soon, as well as an 80 column cartridge — then PaperClip 
will have everything! I have not used the Writer's Tool (O.S.S.) which is 
Jim's favorite, but PaperClip would be hard to beat. 
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Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club and 
user s group with no connection to Atari Corp. We are a group interested 
in educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 

* * President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 

503-344-5843 

Vice Pres-Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 

503-686-1490 

Librarians-Ron and Aaron Ness, 374 Blackfoot, Eugene, Or 97404 

(503)689-7106. 

Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 

503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 

503-484-9925 

E.R.A.C.E. (Education SIG Editor)-Nora Young, 105 Hansen Lane, Eugene, 

Or 97404 /503-688-1458 

Send 50c stamps or coin ($1 overseas) to the Ness' for the new, updated 
ACE Library List-new in May 84 ! 

Bulletin Board 

(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives, an Epson MX80 printer, a MicroBits 1100E 
Modem; running the FoReM Bulletin Board software distributed by 
MicroBits. 


Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 ^ 

F , Q\ 

Only $12 each ($2 extra for Airmail). Available on 1^ from:, }( 0 /^\ 

George Suetsugu ^ 3 ^ 

45-602 Apuapu St \ iVl ! J 

Kanoehe, HI 96744 ' . / 
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TYPESETTIMG 

FROM YOUR COMPUTER 

ATARI OWNERS: If you. have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes "on line!' 
And it s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 



30 Bast 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 
2660 S.W. DeArmond 
Corvallis, OR 97333 




